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EDITORIAL 
BACK ISSUES TO BE AVAILABLE 


We're now in the process of reprinting issues 
1-6 of the 'NOTES' All pertinent information from 
Volume 1 (including the complimentary issue) will 
be combined into one giant issue and organized 
according to subject matter. You'll be able to 
find information alot faster and It'l be easier to 
read! 


Am not sure of the price yet. That info will 
be available in the next issue. Volume 2 (issues 
7-12) will be next. 


6502 SYSTEM CENTERFOLD? 


Well, not quite, but I would like to start 
featuring one 6502 system in each issue. If you'd 
like to have your system featured in the 'NOTES', 
send in a black & white glossy photograph of your 
machine (you can be in the picture also) and a few 
paragraphs describing what you have, what kind of 
software you use , and what you do with your ma- 
chine. The picture should be well focused etc. 


I always enjoy hearing about your system and 
I'm sure other readers would. also. Let's hear 
from you!!4 


SUBMITTING ARTICLES 


Since all articles will be retyped, they need 
only be readable. Typing it would, of course, 
guarantee readability. Program listings, on the 
other hand, may not be reyped so, if at all pos- 
sible, use white paper and a fresh ribbon on your 
printer. If there's no way you can generate an 
original source listing, then a handwritten source 
listing with MOS mnemonics, and labels of up to 
six characters, (don't forget to use labels when 
referencing zero page locations) will be satis- 
factory. Comments should be preceded by a semicol- 
on, 


This will make it easy for me to assemble your 
program for publication. Disassembler output is 
not very satisfactory except when heavily commented, 
labeled and all zero page registers identified by 
name. 


Perhaps the best way to submit program source 
listings would be to send a cassette of the assem- 
bler source file and I can then assemble it and 
run a listing on my Decwriter. I can assemble 
source files from either the Micro-ade assembler 
(Peter Jennings) or the MOS/ARESCO/HDE assemblers. 
If you send a S.A.S.E., I'll return your cassettes. 
It would be wise to dump two copies of the file to 
cassette just in case. 


I can read most of the Hypertape-recorded cas- 
settes I receive once I adjust the azimuth of the 
cassette head for the higher audio level while 
reading the program. I think this head adjustment 
problem has probably accounted for most of the tape 
interchange problems I've been aware of. The ma- 
chines I use to make the newsletter cassettes have 
been adjusted as close as possible and 30 seconds 
of synch characters precede the program for set- 
ting up your equipment. So far, we have not had 
any cassettes returned, so we must be doing some- 
thing right. 
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INSIDE COVER: The correct price for 1-6 or 7-12 
from Mark Kantrowitz is $7.00 add $3.00 
for airmail overseas. 





PAGE 4: (top of the page) the rest of the BANNNER 
listing should run from $2600-$28FF and 
not $3400-S$36FF., 


PAGE 15 : the short program in the NEW COMMAND FOR 
BASIC should read: | 


1000 PRINT: PRINT "Enter space when ready | 
“3: GET A$: IF A$€>" " THEN 1000. l 


ERCM SYNERTEK 


Apparently, SYNERTEK has rewritten the SYM 
monitor to clean up the problems they had reading 
cassettes and a few other minor glitches. No word 
yet on the price for retrofit but I should have 
that info by next isaue,. 





ee nce eases essai eeaentnaaneennaasanniuonnsieneitincarsaenenetenn>eontoneicrmsNnteaaeananeenneinty 


The following notice is being repainted (rom 
Vol IV No 5 of the CACHE REGISTER. T don't know 
how true it 44 - but it pays to Look before you 
Leap. 


WORLD POWER SYSTEMS: FRAUDI!! 


It appears that World Power Systems is a carefully 
instigated fraud for ripping off computer hobbyists 
and small businesses. One Chicago business is out 
of luck for $4500. The scenario reads like a TV 
police show, complete with prison escape, aliases, 
etc. 


I guess it's appropriate to repeat the advice that 

so many have given before: if you don't know the 

integrety of the company, do all your business in 

person or via C.0.D. Better yet, deal with local, & 
reputable dealers, Like the computer stores; or 

those who advertise in the CACHE Register, like 

Lloyd Smith of Smith Computer Systems. (With his 

good prices, it's a shame he hasn't been getting 

more business from his ads, and has had to cut 

them back.) 


Ward Christensen 





WE'RE GOING TO SUPPORT OSL! 


From all indications, there are alot of frus- 
trated OSI users out in the field. 


I've looked over the C-1P and C2-4P and they 
seem like reasonable machines for the money. The 
"USER NOTES’ will try to fill in where the docu- 
mentation leaves off so we really have our work cut 
out for us. 


Pass the word along to any OSI users you know 
of. 


We've already got a few goodies to pass along. 
For the first installment, see the comments section 
in this issue. KIM, of course, will still get the 
bulk of our aunovart. 





CHEAP RAM!! 


Joe was kind enough to Lend me one of his dy- 
namic RAM cards for a firsthand opportunity to. see 
how well it worked. I cycked the board for several 
hours with a coupfe of the dynamic memory tests 
contained in the HDE Comprehensive Memory Test 
(CMT) package. The board performed flawlessly! 


As f0r ad I can tell, this RAM cand should be 
useable with other 6502 machines uncluding OSI, and 
PET besides the KIM, SYM and AIM. 


ERIC 


A_32K DYNAMIC RAM BOARD FOR THE KIM-4 BUS 


by J. C. Williams 
55 Holcomb St. 
Simsbury, Ct 06070 


Two years ago, 16K x 1 dynamic memory chips 
such as Mostek's 4116 sold for about $40 each; 
they're now less than $10 each and available from 
many semiconductor manufacturers. These prices 
mean that a 32K board can be built for about $200. 
In addition, the board will draw less than 200 mA 
from the +8 Volt power supply, 200 mA from the +15 
supply and 5 mA from the -15 supply. Memories for 
the APPLE II and TRS-80 microcomputers are based 
on these devices, as are many mimicomputer memor- 
ies; in spite of old rumors, dynamic memories work 
reliably. 


The circuit of figures 1A and 1B is a 32K byte 
(16K if only 8 memory chips are installed) memory 
for the KIM-4 bus which easily fits on a 43"x6%" 


circuit board. Figure 2 shows the layout used for 
one of the prototypes built on a Vector 3662 plug- 
board. In eight months of constant use with a KIM 


1 and KIM-4, no problems of any kind have been en- 
countered with this unit. A second unit, built at 
the end of 1978, also works well. 


It would take a long write-up to explain how 
dynamic memories work and this note is about a spe- 
cific circuit. Readers who want to learn more de- 
tails could start with Lane Hauck's article in the 
July, 1978, issue of BYTE and progress to manufact- 
uerers' data sheets and application notes. Mostek's 
1978 Memory Data Book and Designer's Guide is es- 
pecially useful and has excellent applications in- 
formation. 

In the circuit of figure 1, memory refreshes 
are “hidden” during $1 (BE) of the 65XX processor 
cycle. This can be done because although the pro- 
cessor puts out address and R/W information during 
@1, read or write operations are done during @2. 
The circuit described "gives" the memory to the 
processor during $2 and to the refresh circuit dur- 
ing @2. Memory chips used in this way must be fast 
enough to function at approximately twice the pro- 
cessor clock frequency. Devices with a 200 ns ac~ 
cess time and a 450 ns cycle time are required for 
this circuit if the processor has a 1 MHz clock. 


Figure 3 is a timing diagram which shows what 
must be done to interface the 4116's (or pin-com- 
patable equivilent) to a 1MHz 65XX bus. The bus 
provides $2, R/W, RESET, and address information. 
During write cycles it provides data and during 
read cycles it takes data. The specific bus times 
marked on figure 3 were taken from the MOS Tech- 
nonology Hardware Manual. The 4116's require a Row 
Address Strobe (RAS), a Column Address Strobe (CKS), 
WRITE, and multiplexed address information at spec~ 
ified times. Figure 3 times were selected for the 
most reliable operation using the full time avail- 
able during $2. Four types of memory cycles can 
occur: 1) Read 2)Write 3)Refresh and 4)Null. Read 
or Write cycles occur during $2 if the processor 
has addressed a location on the board. Refresh 
cycles occur during $2 once every 32 clock cycles 
or during every $2 if RESET is low. During Null 
cycles no 4116 activity occurs. 


_ The circuit of figure 1 implements the timing 
using one CMOS and eleven TTL integrated circuits, 
The two 16K X 8 banks of 4116's have address lines 
AO-A6 driven by multiplexers U8-U11. To eliminate 
undershoot on AO-A6, 1.5 k pull-up resistors are 
pequired. Nand gates U6 and U7 drive the 4116 RAS, 
CXS, and WRITE lines. Nand gate U4 and twelve bit 
ripple counter US produce a REFR signal once ev- 
ery 32 clock cycles as well as provide the seven 
bit refresh address to be used. A REFRESH signal 
is also produced when RESET is low in order to in- 
sure proper start-up of some manufacturer's memory 
chips. Since Refresh cycles are dependent only on 
the existence of a 1MHz $2 signal on the KIM-4 bus, 
any hardware controlling the bus must provide such 
a signal. One-shot multivibrators Ul and U2 pro- 
vide row and column address strobe timing signals 
when triggered by other signals. U12 generates the 
BOARD SELECT, UPPER BLOCK SELECT, and ROW ADDRESS 
5 and 6 signals by comparing the four most signifi- 
cant bits of the KIM-4 address bus with the settings 
of the "starting address" switches. Sections of U3 
are used as buffers, delay elements and inverters, 


The construction of this circuit is not dif- 
ficult, but requires care, planning and some ex- 
perience, Layout is important to minimize the 
length of lines carrying high speed signals and un- 
desirable coupling between lines. A low impedance 
ground and power supply distribution are essential 
because of the high peak currents drawn by the mem- 
ory chips during clocking. Don't skimp on bypass 
capacitors and use #20 or larger tinned copper bus- 
wire for grounding. The grounding and bypass lay~ 
out of figure 2 works well. Wire-wrapped connec~ 
tions are best made with a Vector Electronics Co. 
Model 180 "slit and Wrap" tool which enables one to 
solder to the leads of resistors, capacitors and 
edge connector pads as well as make "daisy chained” 
wraps. Once this tool is used, you'll never want 
to measure, cut and strip regular wire again, 


All parts which attach to the board should be 
on hand before any construction is started. The 
following sequence may be of help in buidling one 
of these boards: 


1. Attach wire wrap IC sockets and voltage regu- 
lators to board with “five minute" epoxy glue. 
Heat sinks are not required, 

2. Run the ground bus on the bottom of the board 
using #20 or larger tinned copper bus wire. 
Start at edge connector pads 1 and A and go a- 
round the outside of the board to pads 22 and 
Z. Stick in and solder bypass capacitors be- 
tween the bus and the proper IC socket pins as 
you go to hold the bus wire in place. Complete 
the ground network with additional lengths of 
bus wire to the “inner" IC's and install the 
remaining bypass capacitors. 

3. Install the resistors (mounted vertically in 
some cases) and remaining capacitors by stick- 
ing their leads through the board and soldering 


them to the appropriate pins. Cut any uncom-~ 
mitted leads to % for later "slit and wrap" 
connection. --The remaining connections can be 


made with "slit and wrap" techniques~ don't for- 
get to solder after wrapping round leads. 

4. Run the +5, +12 and -5 Volt power supply lines 
from the outputs of the respective regulators 
to the correct IC pins, bypass capacitor leads 
and pull up resistor (+5 Volt only) leads. Ai- 
so run the +8, +16 and -16 Volt lines from the 
proper edge connector pads to the correct reg~ 
ulator input pins and bypass capacitors. These 
lines may be conveniently run on the board top. 
"Plug in” the board, power it up and check for 
correct power and ground connections at every 


Ic location. 

5, Wire the remainder of the circuit in stages 
checking between data sheet pinouts, schematics 
and drawings to eliminate errors, The stages 
could be a)address lines b)control and timing 
logic c)data lines and d)row and column address 
strobes and WRITE lines. It is helpful to use 
wire with a different color insulation for each 


stage. 
1 








Install all IC's except 4116's and test the 
board on a KIM-4 bus. Set the starting address of 
the board as desired (for example $2000) and turn 
on the power-the system should operate normally. 
Load test programs in operatonal memory which will 
"exercise" the board. 


Read Test 
0200 AD 00 20 READ LDA $2000 
0203 4C 00 02 JMP READ 


Write Test 


0200 8D 0O 20 WRITE STA $2000 
0203 4C 00 02 JMP WRITE 


While one of these programs runs, an oscillo~ 
scope can be used to check the RAS, CAS and other 
signals produced at a memory chip socket in the 
selected block. $2 should be used as the ‘scope 
trigger and displayed on one channel so that the 
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signal being tested can be compared with it. Ad- 
just timing if necessary by changing one-shot tim- 
ing resistors, Signals to the other memory block 
can be checked by changing the address used in the 
test program (for example to $6000). RAS signals 
produced during $2 by REFRESH may be sbeereed by 
holding RESET low, 


Install 4116's and teat using the monitor and 
a program such as Memory Test by Jim Butterfield in 
the First Book of KIM, If trouble~shooting is need- 
ed, the type of problem is an indication of what's 
wrong. For example, if one bit in one block is 
always wrong suspect a bad 4116 or data line wiring. 
If the errors seem to be random, the 4116's may be 
too slow or there may be excessive noise on the 
power supply lines, Based on experience with the 
prototypes, once the clock timing has been adjusted, 
there will be no problems at all. 


The author hopes that the availability of large, 
low-cost memories will stimulate the development of 
software for 65XX systems. Any correspondence on 
the memory circuit should be sent to the above ad- 
dress. 
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FIGURE 1B 32K RAM BOARD - ADORESS MULTIPLEXER 
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Oo 1 uf ,16 Volts, Tantalum 
CD 61 af, 12 Velts, Disc Ceramic 


FIGURE 3 - TIMING DIAGRAMS - 1 MHz CLOCK 
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650X SAVE AND RESTOR ROUTINES 


by Jim Green 
807 Bridge Street 
Bethlehem, PA 18018 


Copyright, 1979 
Commercial Rights Reserved 


These routines save and recover A, Y and X 
register values. The ability to protect these 
values ie particularly useful when they might be 
lost due to modification within, say, a device 
routine, In the programs below no additional data 
memory (other than the stack) is required. This 
makes it possible to save register contents to any 


level of nesting permitted by the size of the a- 
vailable stack. 


At the outset one should note that the two 
subroutines illustrated below, SAVE and RESTOR, 
can be replaced with just twenty bytes of code 


(see ASAVE and ARESTR below) which will execute in 
less than a sixth of the time, 


Having said that, why would anyone want to 

know about, much less use, these routines? First, 
the exercise in writing or understanding the rou- 
tines is interesting, I think. Second, and more 
important, a pair of subroutine calls is easier on 
the overburdened mond of the progrmmer than remem- 
bering the sequence of the ten lines of code. 
(Did I save the Y before the X or vice versa?!) A 
third possible reason, that of saved program space, 
would only exist if in excess of 6 call pairs (ie. 
a SAVE and a RESTOR) are made to these routines. 


The alternative code sequences are: 


an 
iM 
a 
al 
VA 
5 
im 
Ald 
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& 
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PAD 


UPPER BLOCK 
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ie 


s 
| 
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LL 
= 
ere) 
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UL, pin 13 Boskas RFRAS 
+5 
Ul, pin te 
ASAVE: PHA ;push A value to stack 
TYA 
PHA ;push Y value to stack via A 
TXA 
PHA s;push X value to stack via A 
TSX suse stack pointer 
LDAX $0103 ; to get A copy 
PHA ssave it also 
LDAX $0101 yretrieve X value 
TAX s and restore X 
PLA snow restore A 
ARESTR: PLA spull X value from stack to A 
TAX srestore X 
- PLA ;pull Y value from stack via A 
TAY. srestore Y 
PLA srestore A 


The interesting aspect of the subroutine code 
presented below is that subroutines are used to 
perform stack operations, Since the subroutines 
themselves use the stack as the place where their 


return addresses are saved, it is necessary to move’ 


some stack bytes around and to do this regardless 
of the current value of the stack pointer. 


At the beginning of any subroutine, after it 


has been called, the state of the stack may be 
Tepresented as shown in Figure L: 


Stack 


SP+2 


SP P22 


Figure 1. 


Where RAH and RAL are the high and low bytes 
of the return address, "777" is the next avail- 
able stack byte, and SP is the address pointed to 
by the stack pointer. 


If the operations starting with ASAVE (above) 
are now invoked, the stack would appear as shown 
in Figure 2a, Notice that the return address is 
now hidden and no longer directly available. An 
attempt to return from the subroutine at this 
point would get lost by returning to the addreas 
equal to Y (as the high byte) and X (as the low). 
Clearly, some swaps must be made. 


To accomplish this, the stack pointer is 
moved "up" two bytes (remember that stacks work up- 
side down). Then RAH and RAL are copied onto the 
two new locations (Figure 2b.). The entire block 
of 5 bytes is then shifted "down" (Figure 2c.), and 
finally the stack pointer is re-established just 
"above" the return address. The return address is 
now accessable so that after an RTS (Figure 2d.) 
only the A, Y and X values remain on the stack. 


The RESTOR routine does essentually the same 


thing in reverse, One additional wrinkle occurs 
at RESTI, in which the current value of A replaces 


SP 45 





the saved value of A on the stack before program 
control drops into the RESTOR routine. This fea- 
ture is useful in single byte input routines where 
we wish to protect the Y and X values but to re- 
place the old A value with the new input value. 


SAVE and RESTOR (or RESTI) may be invoked any~ 
where in a program subject to the restriction that 
each SAVE call be ultimately followed by a RESTOR 
(or RESTI) call at the corresponding stack level, 
The partial code below illustrates the application 
of the routines. Notice that the pair of calls 
within SUBROUT are nested within the pair outside 


SUBROUT: 
JSR SAVE oe JSR SAVE 
JSR SUBROUT JSR RESTOR 
eoraite A oorenentninenanninnaisinrmmnnenmnevaninig QT S 
JSR RESTOR 


As stated at the outset, these routines will 
save neither program time nor program space but 
they may, in the long run, save a programmer from 
undue wear and tear. Besides, they were fun to 
write, 





SP+5 SP+3 
SP4+4 SP+4 SP+2 
SP+3 SP+3 SP+1 
SP4+2 SP+2 SP 
SP+1 SP+1 
SP SP 
(a) (b) (ec) (d) 
Figure 2. Stack values due to SAVE. 
: 65@X REGISTER SAVE AND RESTOR ROUTINES 
: VERSION @.1, 14 FEB 79 
H COPYRIGHT, 1979 
; COMMERCIAL RIGHTS RESERVED BY 
; J. S. GREEN, COMPUTER SYSTEMS 
; 807 BRIDGE STREET 
; BETHLEHEM, PA 188618 
; (215) 867-0924 
: .DEF PGONE=$0100 ;START OF PAGE ONE 
: -LOC $6204 
; SAVE A, Y, & X REGISTER VALUES ON STACK 
02608 48 SAVE: PHA ;SAVE A 
@201 98 TYA 
@202 48 PHA ;SAVE Y 
@203 8A TXA 
@204 48 PHA ;SAVE X 
@285 48 PHA ;ADD TWO BYTES TO STACK 
0206 48 PHA 
0207 BA TSX ;USE STACK POINTER TO 
@2@8 BD @7 61 LDAX PGONE+7 ; MOVE RETURN ADDRESS 
@20B 9D 82 01 STAX PGONE+2 ; TO TOP OF STACK 
@28E BD 66 01 LDAX PGONE+6 
8211 9D @1 @1 STAX PGONE+1 
@214 A@ 84 LDY# 4 


8216 
8219 
B821C 
821D 
B21E 
8228 
O221 
8222 
6225 
6226 
8229 
022A 
022D 
622E 
822F 


9230 
0231 


6234 
8235 
6236 
8237 
8239 
@23C 
023F 
0248 
0241 
8243 
8244 
8247 
824A 
824D 
0258 
6251 
8252 
8253 
B254 
6255 
0256 
6257 
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SAVE1: 


; 
RESTOR: 


RESTR1: 


LDAX 
STAX 
DEX 
DEY 
BPL 
PLA 
PLA 
LDAX 
PHA 
LDAX 
TAY 
LDAX 
TAX 
PLA 
RTS 


PGONE+5 


“PGONE+7 


SAVE1 


PGONE+S4C 
PGONE+S$@B 


PGONE+S@A 


+SHIFT LAST 5 BYTES OF 
+ STACK DOWN TWO CELLS 
3 TO COVER OLD ADDRESS 


?LOOP TIL 5 DONE 
;ADJUST POINTER 


;NOW RESTORE REGISTERS 
7ACC 


7Y REGISTER 


3X REGISTER 
7 ACC 


RESTORE X & Y ONLY 


TSX 
STAX 


PGONE+5 


RESTORE A, Y, & 


PRA 
PHA 
TSX 
LDY# 
LDAX 
STAX 
INX 
DEY 
BPL 
TSX 
LDAX 
STAX 
LDAX 
STAX 
PLA 
PLA 
PLA 
TAX 
PLA 
TAY 
PLA 
RTS 


«END 


Rockaway NJ 07866 


4 
PGONE+3 
PGONE+1 


RESTR1 


PGONE+2 
PGONE+7 
PGONE+1 
PGONE+6 


This telephone dialer program will dial a tele~ 


phone number (of any length) by preasing a single 
The hardware consists of a 
7406 inverter, NPN transistor, a couple of resis-— 


key on KIM's keypad. 


tors and a 12 volt relay (see figure). The switch- 
ing end of the relay is connected between the green 
wire and the logic box where the green wire was 


connected. 


Up to 16 different telephone numbers can be 

You must first store the numbers in mem- 
Preceeding every telephone number, you must 
The first I.D. 
Each telephone number con- 


dialed, 
ory. 
store an I.D. number, 
AQ and goes up to AF. 


sists of one or more bytes. 


phone number. 
of digits, in which case 


telephone number. 


a 


Each byte of the tele- 
Phone number consists of two digits of the tele- 
Except when there is an odd number 
Pen 


dicates the end of the table, 


number is 


is placed in the 
last nybble of the last byte of that particular 


A "FF" in the phone table in- 


As an example, a typical phone table would 
look like this starting in location 0018: 


AO 20 16 25 17 19 Al 35 91 81 9F A2 80 02 65 48 45 FF 


This phone table has three numbers in it. 
Pressing 0 on the keypad will cause, 201~6251719 to 


be dialed. 


6 





;USE STACK POINTER 
+ TO OVER-RITE OLD A 


x 
#ADD TO STACK 
;USE STACK POINTER 


; TO SHIFT LAST 5 BYTES 
; OF STACK UP 2 CELLS 
+TO MAKE ROOM FOR RETURN 
; ADDRESS 

;BR TIL 5 DONE 


;MOVE RETURN ADDRESS 


;ADJUST STACK POINTER 
;X VALUE 
;Y VALUE 


+ACCUMULATOR VALUE 


When you start the program at 0200, the dis- 
play will flash "PHONE". When you press a key on 
the keypad, the program changes that key to an 
I.D. number and searches for it in the phone table. 
If it is there it dials the number associated with 
it. If the I.D. number is not in the table, the 
display will flash "ERROR". As the program dials 
a number , it displays it in a banner fashion, Af- 
ter dialing, it returns to displaying "PHONE". 
takes a dim view of equip- 


NOTE: The Telephone Co. 


ment attached to their lines without their approval. 


ahd 


TOGREEN 
WIRE 


| 


TO Logie 
Box 1) 
PLACE OF 
GREEN 
Wire 


D= 1N914 
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LINE#@ ADDR OBJECT SOURCE PAGE 0001 
. 0010 2000 STELEPHONE DIALER PROGRAM BY MARK KANTROWITZ 
0020 2000 x=60 
0030 0000 MSG kak+t12 
0040 000C DISPLY k=k+7 
0050 0013 FLASH xk=k+5S 
0060 0018 TABLE k=k+1 §START OF NUMBER TABLE 
0070 0019 
0080 0019 PAD =$1700 
0090 0019 PADD =$1701 
0100 0019 TIMER #61707 
0110 0019 
0120 0019 CHANGE =61F 40 
0130 0019 GETKEY =$1F6A 
0140 0019 
0150 0019 ABLE =61FE7 
0160 0019 SBD =$1742 
0170 0019 SAD =$1740 
0180 0019 SADn =61741 
0190 0019 
0200 0019 
0210 0019 *=$0200 
0220 0200 A2 00 INITS LDX #0 sINITS MESSG PNTR 
0230 0202 BD SE 03 INITS1 LDA MES8SG+X 5GET A MESSAGE BYTE AND 
0240 0205 95 00 STA MSGeX §STORE IN Z-PAGE LOCATIONS 
0250 0207 E8 INX 
0260 0208 EO 0C CPX #$0C ¢DONE YET? 
0270 O20A DO Fé BNE INITS1 
0280 O020C D8 START CLD 
0290 O20D A2 00 LEX #60 sINITS INDEX FOR DISPLAYING 
0300 O20F 86 13 STX FLASH 9"PHONE" MESSAGE. 
0310 0211 AY FF SET LDA #$FF ¢SET TIMER TO .25 SEC 
0320 0213 8D 07 17 STA TIMER 
0330 0216 Aé 13 FIVE LDX FLASH 
0340 0218 86 14 STX FLASHt1 
0350 021A AO 09 LDY #89 §SELECT FIRST DIGIT 
0360 021C AY 7F FOUR LDA #67F §SET DIRECTIONAL REGISTER 
0370 O21E 8D 41 17 STA SADD 
0380 0221 84 17 STY FLASH+4 
0390 0223 AG6 14 LBX FLASH+1 
0400 0225 8C 42 17 STY SBD 
0410 0228 BS 00 LDA MSG»X §LOAD SEGMENT CONTROL BYTE 
0420 022A 8D 40 17 STA SAD 
0430 O22D £6 14 INC FLASHt1 sINCREMENT FOR NEXT DIGIT 
0440 O022F 9 10 LDA #$10 
0450 O231 85 15 STA FLASHt2 
0460 0233 85 16 Two STA FLASHt3 sDELAY FOR A FEW 
0470 0235 Cé 16 ONE DEC FLASH+3 sMILLISECONDS 
0480 0237 DO FC BNE ONE 
0490 0239 Cé 15 DEC FLASH+2 
0500 O23B DO Fé BNE TWO 
0510 O23D 20 40 1F JSR CHANGE 
0520 0240 20 6A 1F JSR GETKEY sGET A KEY 
0530 0243 C9 10 CMP #$10 #VALID KEY? (0-F) 
0540 0245 30 26 BMI THREE sIF YES» FIND TELEPHONE NUMBER 
0550 0247 
0560 0247 18 cLc 
0570 0248 E64 17 - INC FLASH+4 SINCREMENT TO SELECT 
0580 024A E64 17 INC FLASH+4 5NEXT DIGIT 
0590 024C A4 17 LDY FLASH+4 
0600 O24E CO 15 CPY #€15 *PAST 6TH DIGIT? 
0610 0250 DO CA BNE FOUR ¢IF NOTy LIGHT NEXT DIGIT 
0620 0252 2C 07 17 BIT TIMER §.25 SECONDS UP? 
0630 0255 10 BF BPL FIVE ¢IF NOTy LIGHT DISPLAY AGAIN 
0640 0257 
0650 0257 A? FF LDA #6FF sSET TIMER FOR ANOTHER .25 SEC 
0660 0259 8D 07 17 STA TIMER §FOR DISPLAY BLANKING 
0670 O25C 20 40 1F SIX JSR CHANGE 
0680 O25F 20 6A 1F JSR GETKEY ’GET A KEY 
0690 0262 C9 10 CMP #610 sVALID KEY? (O-F)? 
0700 0264 30 07 BMI THREE ¢IF YES» FIND TELEPHONE NUMBER 
0710 0266 2C 07 17 BIT TIMER §+25 SECONDS PASS? 
0720 0269 10 F1 BFL SIX ¢IF NOTy GET A KEY 
0730 O26B 30 A4 BMI SET ¢IF SOr FLASH DISPLAY AGAIN 
0740 026D 
0750 0260 yFIND TELELPHONE NUMBER 
0760 O26D 18 THREE CLC §’A’ CONTAINS I.D. 
0770 O26E 49 AO ADC #€AO0 SMAKE INPUT LOOK LIKE TABLE I.D. 
0780 0270 A2 00 LDX #600 
‘ 0790 0272 ODS 18 TEN CMP TABLE» X 6I.D. MATCH? 
~ 0800 0274 EA NOP ¢FOR TABLE RELOCATION 
0810 0275 FO 12 BEQ EIGHT §IF SOr DIAL NUMBER 
0820 0277 E8 NINE INX SIF NOTy PASS OVER NUMBER 
0830 0278 B4 18 LDY TABLE? X 
0840 027A EA NOP §FOR TABLE RELOCATION 
0850 027B CO AO CPY #€A0 


08460 027D 90 F8 BCC NINE 


0870 O027F CO FF CPY #6FF sEND OF TABLE? 


0880 0281 DO EF . BNE TEN ¢IF NOT» COMPARE WITH I.D. 
0890 0283 AP 06 LDA $66 sIF SO» FLASH "ERROR" MESSAGE 
0900 0285 985 13 STA FLASH 

0910 0287 DO 68 BNE SET 

0920 0289 

0930 0289 #DIAL NUMBER 

0940 0289 AO OS EIGHT LDY #85 

0950 O28B AP? 00 LDA #60 #ZERO OUT DISPLAY AREA 
0960 O28D 99 OC 00 ELEVEN STA DISPLYrY 

0970 0290 88 DEY 

0980 0291 10 FA BPL ELEVEN 

0990 0293 E8 NEXT INX 

1000 0294 BS 18 LDA TABLE? X sLOAD TWO NUMBERS 

1010 02946 EA NOP §FOR TABLE RELOCATION 
1020 0297 C9 AO CMP #6A0 sNUMBER COMPLETED? 

1030 0299 BO 26 BCS TWELVE sIF SO» GO TO START 
1040 O029B 4A LSR A sISOLATE LEFT DIGIT 
“1050 029C 4A LSR A sBY SHIFTING IT RIGHT 
1060 O29D 4A LSR A 

1070 O29E 4A LSR A 

1080 029F 29 OF AND #60F sMASK LEFT NIBBLE 

1090 O2A1L 85 12 STA DISPLY+6 sSTORE FOR DISPLAY 

1100 O2A3 C9 00 CMP #60 SIF ZEROs MAKE IT $0A 
1110 O2A5 DO 02 BNE SKIP 

1120 O2A7 AX OA LDA #80A 

1130 O2A9 85 14 SKIP STA FLASH+1 sSTORE FOR DIALING 

1140 O2AB 20 1B 03 JSR MOVE #SHIFT DISPLAY LEFT 
1150 O2AE 20 D9 02 LAP JSR PULSE SLIGHT DISPLAY AND PULSE PHONE 
11460 O2Bi DO FB BNE LAP ¢FINISH PULSING DIGIT? 
1170 0233 

1180 02B3 ¢IF NOTr CONTINUE FULSING....- 

1190 O2B3 20 05 03 JSR DELAY sDELAY FOR .5 SEC 

1200 0284 BS 18 LDA TABLE »X sLOAD RIGHT DIGIT 

1210 O2B8 EA NOP sFOR TABLE RELOCATION 
1220 O2B9 29 OF AND #60F ¢MASK LEFT NIBBLE 

1230 O2BBR 985 12 STA DISPLY+é6 §STORE FOR DISPLAY 

1240 O2BD C9 OF CMP #@60F sEND OF NUMBER? 

1250 O2BF DO 03 BNE ZERO ¢IF NOTe CONTINUE 

1260 02C1 4C€ OC 02 TWELVE JMP START ¢IF SOs GO TO BEGINNING 
1270 0204 

1280 02C4 C9 00 ZERO CMP #80 SNUMBER ZERO? 

1290 O02C46 DO 02 BNE PASS §IF SOQ» MAKE IT $0A 
1300 O2C8 AX OA LDA #80A 

1310 O2CA 85 14 PASS STA FLASH#+1 §STORE FOR DIALING 

1320 O2CC 20 1B 03 JSR MOVE fSHIFT DISPLAY OVER ONE 
1330 O2CF 20 DY 02 LITE JSR PULSE SLIGHT DISPLAY AND PULSE PHONE 
1340 O2D2 DO FB BNE LITE SIF NOT DONE PULSINGy CONTINUE 
1350 0O2D4 20 05 03 JSR DELAY sDELAY FOR .5 SEC 

1360 02D7 30 BA BMI NEXT ¢GET NEXT DIGIT 

1370 O02D9 

1380 02D9 sSUBROUTINE TO PULSE PHONE... 

1390° 02D9 

1400 02D9 AX BO PULSE LDA ##80 

1410 O2DB 98D 01 17 STA PADD §SET PA7 TO OUTPUT 

1420 O2DE A 00 LDA #600 sTURN ON A7 

1430 O2EO 8D 00 17 STA PAD 

1440 O2E3 AX 31 LDA #6$31 §SET TIMER FOR .1 SEC 
1450 O2E5 98D 07 17 STA TIMER 

14460 O2E8 

1470 O02E8 20 30 03 PLAY JSR ETIL sLIGHT DISPLAY 

1480 O2EB 2C 07 17 BIT TIMER sTIMER UP? 

1490 O2EE 10 F8 BPL PLAY ¢IF NOTr GO LIGHT BISPLAY 
1500 O2FO A? 80 LDA #680 : #TURN PA7 OFF 

1510 O2F2 8D 00 17 STA PAL : 

1520 O2FS A? 31 LDA #631 sSET TIMER FOR .1 SEC 
1530 O2F7 8D 07 17 STA TIMER 

1540 O2FA 20 30 03 UP JSR ETIL SLIGHT DISPLAY 

1550 O2FD 2C 07 17 BIT TIMER >TIMER UP? 

1560 0300 

1570 0300 10 F8 BPL UP ¢IF NOTr GO LIGHT DISPLAY 
1580 0302 Cé 14 DEC FLASH+1 dDECREMENT DIGIT 

1590 0304 60 RTS 

1600 0305 

1610 0305 #SUBROUTINE TO DELAY «5 SECONDS 

1620 0305 AO 01 DELAY LDY #1 

1630 0307 84 13 STY FLASH 

1640 0309 AD FF TIME LDA #@6FF 

1650 O30B 98D 07 17 STA TIMER §SET TIMER FOR .25 SEC 
1660 O30E 20 30 03 YALP JSR ETIL #LIGHT- DISPLAY 

14670 0311 2C 07 17 BIT TIMER §TIME UP? 

1680 0314 10 F8 BPL YALP §IF NOTr LIGHT DISPLAY 
1690 0316 Cé 13 DEC FLASH #SET TIMER FOR .25 SEC DELAY 
1700 0318 10 EF BPL TIME 

1710 031A 60 RTS 


1720 031B 

















1730 O31B sSUBROUTINE TO MOVE NISPLAY 
1740 031B AO 00 MOVE LOY $80 
1750 O310 BY OD 00 CONT LOA DISPLY+1sY *LOAD DIGIT 
1760 0320 99 OC 00 STA DISPLYrY *STORE IN PLACE TO LEFT 
1770 0323 C8 INY 
1780 0324 CO OS CFY ¢$5 sFINISHED? 
& 1790 0326 DO FS BNE CONT IF NOTe CONTINUE 
1800 0328 A4 12 LOY DISPLY+6 *LOAL INCOMING DIGIT 
1910 O32A B89 E7 1F LIA ABLErY 9GET RIT REPRESENTATION 
1820 «#032D 85 11 STA DISFLYt5 sSTORE IN 6TH DSPLY POSITION 
1830 O32F 60 RTS 
1840 0330 
1850 0330 sSUBROUTINE TO LIGHT DISFLAY 
1860 0330 AO 09 ETIL LLY ¢8%9 
1870 O332 84 16 STY FLASH+3 sSET DIRECTIONAL REGS 
1980 0334 A? 7F LDA ¢$7F 
1890 0336 8D 41 17 STA SADD 
1900 0339 AO 00 LDY #$0 
1910 0O33B AS 16 INUE LIA FLASH+3 sSELECT DIGIT 
1920 O33D SB 42 17 STA SBD 
1930 0340 BY OC 00 LDA DISPLYrY sLOAD CONTROL BYTE 
1940 0343 8n 40 17 STA SAD 
1950 0346 AX 10 LBA €$10 sDELAY FOR .5 MILLISECONDS 
1960 0348 95 15 STA FLASH+2 
1970 034A 85 17 aTS STA FLASH+4 
1980 O34C Cé 17 CED DEC FLASH+4 
1990 «4034E DO FC BNE CED 
2000 0350 Cé 15 DEC FLASH+2 
2010 6352 DO Fé BNE ATS 
2020 0354 E646 16 INC FLASH+3 *GET NEXT DIGIT SELECT 
2030 0356 E6 16 INC FLASH+3 
2040 0358 CB INY 
2050 0359 CO 07 CPY $87 7 DONE? 
2060 O35B [0 DE BNE INUE 9IF NOTe CONTINUE 
2070 O35D 60 RTS 
2080 O35E 
2090 O35E F3 MESSG) «BYTE $F3>$F6r$RFe$D4/$F 92800 #*PHONE" MESSAGE 


2090 O35F Fé 
2090 0360 BF 
2090 0361 D4 
2090 0362 FP? 
2090 0363 00 
2100 0364 79 
2100 0365 50 
2100 0366 50 
ew 2100 0367 SC 
2100 0368 SO 
2100 0369 00 
2110 036A + END 


«BYTE $792$50*°$50r$5C2$50°800 *#*ERROR® MESSAGE 


ERRORS = 0000 


LANGUAGE LAB 
basic 


MLDSPT 





SOME IMPORTANT BASIC MODS from Christopher 
Flynn, 2601 Claxton Dr. Hernggp7¥A 


Enclosed are listings of two machine Language 
programs which should be of interest to users of 
Johnson Computer's Microsoft BASIC. The first sub- 
routine MLDSPT is a dispatch which BASIC can use to 
activate user-written machine language subroutines. 
The second subroutine ARRSAV/ARRLOD provides an easy 
way to save and load data on cassette tape from 
BASIC arrays (either floating point or integer). 


Before describing the subroutines, I would 
like to mention the features of my eclectic system- 
perhaps I can share experiences with someone. 

First of all, I am using a KIMSI motherboard that 
is populated with 16K of RAM and an Ithaca Audio 
EPROM board. For a console device, I use an SSM 
VDB-1LB board. My software TTY emulator is home- 
brew, approximately 500 bytes long, and completely 
romable and position independent. Hypertape is 
great, but for tape 1/0, a Tarbell board has reaily 
proved its worth, Finally, in the hardware area, 
hard copy is produced by a faithful SWTPC PR-40 
printer. So much for my system... 


The USR function in BASIC is used to invoke 
machine language subroutines. One of the draw- 
backs of Microsoft's USR is that there is no way 
to directly specify the address of the user sub- 
routine. Instead, the address of the subroutine 
must be POKEd into BASIC. 


Not having access to the source code for BA- 
SIC, I could not attack the problem head-on, 
MLDSPT is an alternate way of calling machine lan- 
guage subroutines and works as follows. 


MLDSPT itself is invoked by the USR function. 
(This implies that USRLOC must be patched with the 
address of MLDSPT.) MLDSPT queries locations $FE 
or 254 into which the programmer has POKEd a sub- 
routine number. MLDSPT then activates the proper 
subroutine and the subroutine can access the argu- 
ment of the USR function if desired. 


Subroutine numbers can be in the range of 0 - 
127. MLDSPT multiplies the subroutine number by 
two and uses the result to index a table of sub- 
routine addresses. The proper address is fetched 
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"Your KIM-1 








ie . winieBaie ae 
nae [eres \ Rie an 
EPROM's 
*Program, copy, verify run any of the industry 
standard EPROM’s (2708, 2758, either 2716). 


Copies to or from any mix of EPROM types! 


*Sockets for 3K of 2114 type RAM with decoding 
to give KIM 4K continuous RAM. Decoding 
may also be set to 1K boundries within an 8K 
block to anywhere in memory. 


*Zero insertion force sockets for both run and 
program EPROM sockets. 


*No extra power supplies needed--runs from 
KIM’s +5 and +12 supply. Regulated -5V and 
programming voltages generated on board. 


*Documentation and software listings furnished. 


“Optional 2708 EPROM containing program and 
verify routines available. Optional KIM format 
tape available. 


*MORE™ does not monopolize the KIM edge 
connectors--they pass through so you simply 
unplug your existing connector, plug on the 
MORE board, and reconnect your connectors. 


“Special LED lets you see what the KIM audio 
tape interface is doing. SEE your programs 
load! 


TENNESSEE TECHNICAL INTRODUCES 
THE NEW 
MORE™ BOARD 
for KIM series Micro-computers 


LOADED WITH FEATURES 
More EPROM.---up to 2K 
More RAM---up to 3K 
More Output---16 latched bits 
More Use---run, copy, program to 
or from any eprom type mix. 


“Two 8-bit latchable output ports with 16 LED’s 
ina linear array. Two DIP headers for easy port 
access. NOTE: the LED’s are great for status 
indicators, educational or game use. Make 
lights dance! Make a bar graph indicator. Make 
a disco-KIM! 


*MORE™ includes a prototyping area for your 
individual projects, i.e. add additional RUN 
EPROM sockets, etc. 


*All IC’s in sockets. No alterations to KIM! 


*G-10 epoxy board with plated through holes. 
4” x 103’’. 


“Four sets of programming and/or run person- 
ality keys that allow you to change EPROM 
types in seconds with no board alteration. Keys 
for 2708, 2716 (3 voltage) 2758, 2716 (5 V only) 
all included! 


*MORE™ will not become obsolete for many 
years and is a powerful and useful tool: Ideal for 
education, development, dedicated applications. 
And just plain fun! 


MORE™ board complete with four personality key sets (8 keys), documentation, software listings, 
assembled and tested. Less EPROM’s and RAM’s. $169.95 prepaid in U.S. 


Check or M.O. to: 
T.T.I. 
P.O. Box 2328 
Cookeville, TN. 38501 


Please allow 4 to 6 weeks for delivery. 
Software on tape--$10.00 extra. 
Software in 2708 EPROM--$30.00 extra. 

















from the table and pushed on the stack. Next, 
MLDSPT issues an RTS instruction which pulls the 
address from the etack into the program counter. 
Thus, the subroutine is invoked. Please heed the 
notes on the listings. The addresses in the add- 
ress table are the actual machine language subrou- 
tine addresses minus one, 


Examples in the next section will illustrate 
the use of MLDSPT. 


ARRSAV/ARRLOD 


One of the curious omissions from Microaoft 
BASIC is a feature to save and load data using 
cassette tape. Simple machine language routines 
have been written to overcome this deficiency. 
Currently, data stored in either floating point or 
integer arrays can be stored on or read from tape. 
To save character string arrays, the information 
must first be moved to a numeric array. To read 
character string arrays, the information must be 
read into a numeric array and then moved to a 
character string array. 


SAVING DATA 


Perform the following steps to save data on 
tape. 
1. In my system, using MLDSPT, the save rou- 
tine is machine language routine number 3. 
This may vary in other systems. POKE 3 
into location 254 (decimal). 


2. Inform ARRSAV of the name of the array to 
be saved, This is accomplished by POKing 
the numeric value of the first character 
of the array name into location 6027 (dec- 
imal). Similarly, POKE the numeric value 
of the second character of the array name 
into location 6028 (decimal). If the ar- 
ray name is only one character long, set 
location 6028 to 0. If the array is an 
integer array, set the high order bits of 
6027 and 6028 to 1. Do this even if the 
integer array name is only one character 
long. A DIM statement for the array must 
appear before data can be written form the 
array. 


3. Prepare the tape recorder and invoke the 
USR function. USR will activate MLDSPT 
which will, in turn, execute ARRSAV. Con- 
trol will return to BASIC. 


LOADING DATA 


Reading data back in is very similar, but there 
are a few cautions to be observed, 


1. POKE the number of ARRLOD into location 
254. In my system ARRLOD is routine num- 
ber 4, 


2. As described above, POKE the array name 
into decimal locations 6027 and 6028. 
Data will only load into an array having 
the same name as the array from which the 
data was written to tape. Furthermore, 
the data must be loaded into an array 
having at least as many bytes as the or- 
iginal array. Finally, a DIM statement 
must appear for an array before data can 
be loaded into the array. 





3. Prepare the tape recorder and invoke the 
USR function. 


EXAMPLES 


The following BASIC program segments show how 
MLDSPT and ARRSAV/ARRLOD are used. 


Saving Data 


10 DIM A(100) 

20 POKE 25,3 : REM SET UP MLDSPT 

30 POKE 6027,ASC("A"): REM ARRAY NAME 
0 POKE 6028,0 

50 ZeUSR(O): REM SAVE DATA 





Loading Data 


10 DIM A(100): REM DEFINE ARRAY BEFORE LOAD 
20 POKE 254,44: REM SET UP MLDSPT 

30 POKE 6027,ASC("A"): REM ARRAY NAME 

LO POKE 6028,0 

50 2*USR(O): REM LOAD DATA 


HOW IT WORKS 


















The commented listings expalin fairly well the 
operation of ARRSAV/ARRLOD. The idea is to search 
BASIC's array symbol table for the desired array 
name. Once located, data is either written from 
the proper symbol table entry or loaded into the 
entry. 


Each entry in the array symbol table is or- 
ganized as follows: 


Byte 0 - first character of array name 

Byte 1 = second character of array name 

Byte 2 - low order byte of the length of the 
entry 

Byte 3 - high order byte of the length of the 
entry 


Information on the number of dimensions in the ar- 
ray and the actual contents of the array follow 
the first four bytes, 


Users should be aware that ARRSAV/ARRLOD rep- 
resents a minimal approach to tape data handling. 
Completely absent from these routines is any kind 
of error-checking facility. For example, no in- 
dication is given if the name POKEd into locations 
6027 and 6028 cannot be found in the array symbol 
table. No reporting of read errors is performed. 
Lastly, no checking is done to prevent the de- 
struction of the array symbol table. 


Error checking and a file-naming mechanism 
are areas where an experimenter can customize and 
improve on the ideas presented here. 


NOTES ON THE LISTINGS 


The listings for MLDSPT and ARRSAV/ARRLOD were 
made usng a home-brew editor/text formatter and 
mnemonic assembler. All addresses are assumed to 
be in hex in order to save typing of the leading $j 









The routines are stored in 2708 EPROMs in my 
system ~ hence the awkward addresses, The rou- 
tines may be relocsted as long as the table of 
addresses in MLDSPT is properly updated. 


Lastly, note that my tape save and load sub- 
routines are also located in EPROM at $E800 and 
$E886. The JSRs to these routines can be replaced 
with JMPs to KIM routines at $1800 and $1873 in 
that order. However, the KIM tape routines return 
to the KIM monitor. BASIC will have to be re- 
started in the command mode from the terminal or 
keypad. 


MICROSOFT BASIC MACHINE 
LANGUAGE DISPATCHER. 


i INVOKED BY Z=USRCO). 

i SUBROUTINE NUMBER IS POKED INTO 
i LOCATION $FE (254). 

i SUBROUTINE NUMBER MUST BE IN THE 
i RANGE 6-127. 

i 


FETCH SUBROUTINE NUNBER. 

; MULTIPLY BY 2 TO OBTAIN OFFSET 
INTO ADDRESS TABLE. 
INVOKE MACHINE LANGUAGE ROUTINE. 


E@2) ASFE tLDSPT LOR FE 
E@2F GR ALA 
E@3@ RA TAX 
E@31 BDSRES 
E034 48 
E@35 BDSBEB 
E38 48 
E@39 68 


- 


FRSA, X 
EBSB, X 


aeSEs 


- LOCATIONS $E044 through $E067 are reserved for 


; TABLE OF MACHINE LANGUAGE 
+ ROUTINE ADDRESSES, 
3 NOTE: ENTRY IN THE ADDRESS TABLE 
+ 1S THE ACTUAL ML ROUTINE 
+ ADDRESS MINUS ONE 
; ADDRESSES ARE STORED HL. LO. 
3 INKEY 
EQOA £3 BYTE $€3 
EO38 FF ‘BYTE SFF 
7 BITON — TURN ON GRAPHICS CELL. 
East £6 BYTE $€6 
E@3D B2 " BYTE $82 
} BITOFF-TURN OFF GRAPHICS CELL. 
E@3E E6 ENTE $€6 
EGF C7 "BYTE $C7 
+ ARRSAV-SAVE ARRAY DATA. 
Eade £6 _ BYTE $€8 
Ee41 67 " BYTE $67 
7 ARRLOO-LOAD ARRRY DATA 
E042 EB _ BYTE $€8 
E43 6E "BYTE $6E 


future subroutine calls. 
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MICROSOFT BASIC ARRAY 
SAVE. AND LOAD. 


ROUTINE TO SAVE AND LOAD DATA 
FROM BRSIC ARRAYS. 

SAVE IS ROUTINE NO 3. 

LORD IS ROUTINE NO. 4. 

POKE THE NAME OF THE ARRAY INTO 
LOCRTIONS $1789 AND $1788. 

IF THE ARRAY NAME IS ONE 
CHARACTER, PUT $00 IN $1788. 
IF THE ARRAY IS AN INTEGER 
ARRAY, SET THE HIGH ORDER BITS 
OF $178A AND $1788 TO 4 


CUSES $FC AND $FD AS POINTERS. > 


ENTRY POINT FOR ARRAY SAVE. 
DATA 1S SAVED WITH ID = 1 


Ee6s Ae ARRSAY LDA | 8S04. 


ee ee oe i en Pen ce. Ci Oo 


EQ6A 8DFS17 STA 17F9 
E@6> DOGS BE 45 
; ENTRY POINT FOR ARRAY LOAD. 
; LOAD WITH ID = 
EQSF ASEF LDA SEF 
E@74 80917 STA 17F9 


i PICK UP START OF SYMBOL TABLE 
i FROM $70. $7D AND STORE IN 
i POINTER REGISTER $C, $FD. 


£074 AS7C «TAPA «OLR OE 


E@76 SFC STA FC 
E78 RI?D LR 


i TEST IF POINTER HAS REACHED END 

i OF SYMBOL TABLE $7E, $7F. 

i RETURN TO CALLER IF END OF TABLE 
REACHED. 


71S 

E@7C AS7E «6CTAPA «=6CLDACOE 
E@7e CSFC Cee OFC 
Eese D887 SNE #47 
E@82 AS?F LOA OF 
E@84 CSFD Cre = FD 
E996 DeO4 BNE #1 
E@ss 68 RTS 


? 


TO KIM CASSETTE ENDING aS 
i ADDRESS. 
LENGTH FIELDS ARE OFFSET FROM 


1 Lette ae Ot OS 
i 14 : e, 
+ ADDRESSES. g 
Ege9 hoes TAP Ly 

A " 
eS on 

CPY 
E693 DOF6 BNE t6 


+ TEST FOR MATCH BETWEEN DESIRED 
ARES NERE. (S17BR € $178) CAD 
ee Ot, TABLE ENTRY HAE. 


2 CHARACTERS LONG 
PRD 1S OFFSET @ Gara oe 
OF SVNBOL TABLE ENTRY. USE THE 
%_REGISTER TO COUNT THE NUMBER 
F PATCHED CHARACTERS. 


; CARRY SET IF NAMES MATCH. 
i CARRY CLEARED IF MISMATCH. 


Me me ee ee ee ee ee ee 


E55 f2e0 TAPS LOK 
E@97 BiFC LOR CFD, Y 
E899 DSBAL7 OP 178 
E@SC baB7 BNE 47 
E@SE ES INX 

EGO 88 DEY 

EQR@ 1OF5 PPL #44 
E@R2 38 SEC 

E@AS 8804 BCS 44 
E@A5 18 cic 


3 ALWAYS SET POINTER TO NEXT 

+ SYMBOL TABLE ENTRY AND SET UP 
KIM CASSETTE TAPE RDORESSES. 
$17FS, $17F6 IS KIM S.A. 

£47F7, $47F6 IS KIME A. 


we ee ee we 


$FC, $FD_IS POINTER : 

NOTE LENGTH HAS BEEN LOADED C 
NI ER 

EAS ASC TAPS LOA FC 

EGRS 8DF517 STA 17FS 

EQRB 6DF747 OC 17F7 

EQRE 8DF717 STA 47F7 

EQB1 SFC STR FC 

EQB3 ASFD iDR FD 

EQS 80F617 STA 47F6 

EQB3 6DF817 AOC «17FE 

E@RR 8DFS17 STA 17F8 

E@BE 85FD STA FD 


i % REGISTER WILL CONTAIN $82 

i IF PROPER SYMBOL TABLE ENTRY 
i WAS LOCATED. OTHERWISE, GO 

i LOCATE AND TEST NEXT ENTRY IN 


i THE SYMBOL TABLE, 
Eace £002. CPX asa2 ‘ 
EOC? DOBS BNE #72 


; EXAMINE KIM TAPE ID ($17F9) 
j TO DETERMINE WHETHER TO SAVE 
; $E886 15 TAPE INPUT. 

$£898 15 TAPE OUTPUT. 
RETURN TO BASIC. 


E@C4 RDOF917 LDR «179 
EGC? COFF CP SEF 
E@cs 0884 BNE = #+4 
EGCB 208668 JSR E886 
EGCE 68 RTS 

EQCF 200068 JSR BBBe 
E@D2 68 - RTS 


SN 





BASIC SPEED REPORT 


by Harry D. Bolch 
Lone Star Elec. 
PO Box 488 
Manchaca Tx 78652 


Glad to see the 'Notes become your full-time 
job. When last we talked you were working at MOS 
Technology. You may recall that we were discussing 
the possibility of increasing the clock speed on a 
KIM. I did replace the 6530's with new ones, the 
6502 with a 6502A, and the 1MHz Xtal with a 2.01 
MHz Xtal. To my knowledge, the only eight-bit 
system thet is faster is the OSI system described 
by Curt Priest of Cambridge, MASS; the 2.01 MHz 
KIM with the Microsoft BASIC executes benchmark 
Programs more than 25% faster than the fastest 
4MHz 2-80 system. 


forth 


KIMFORTH is moving right along. The source 
code has been typed in and it assembles correctly 
and runs!!! FORTH documentation is fairly complete 
and is now being typed in to the system. Some cas- 
sette support software still needs to be added and 
verified to operate correctly so KIMFORTH isn't 
quite ready for distribution yet. 


Getting a software package of this size to 
market is no easy thing and usually takes more time 
than one would like. 

You APPLE owners will be happy to hear that, 
according to the FORTH INTEREST GROUP, Captain 
Software of Berkeley California is offering a disc- 
based APPLE~FORTH system that conforms to the 
“international FORTH standards," 


It was further stated in correspondence with 
the FORTH INTEREST GROUP that the programs being 
offered by Programma Consultants and Seawell Mar- 
keting are not true FORTH implementations because, 
at least in the Programma software, the “inner- 
interpreter" concept, essential to FORTH, igs not 
implemented. 


focal 


FOCAL MODS 


from Bernhard Mulder 
Mozart Str l 
6744 Kandel 
West Germany 


++.-speed it up 
a little... 


We change the procedure EATCR (and EATCR1) 
which is called by the findline, which in turn is 
called from the GOTO, IF, ON, DO command routines. 


We assume that the carriage return char is in 
memory and avoid the call of the routine GETC, 
where switches are tested which will never be set, 
when we caome from EATCR (start the following rou- 
tine at $26D0 in the Aresco version 3D and $26DD in 
the "6502 Program Exchange" FCL-65E (V3D). 


C6 2A ECR1 DEC tTXTP ;EATCP1 

AS 2A EACR LDY tTXTP ;EATCR 

A9 OD LDA #0D ;load CR which we are 
looking for 

DO O01 BNE TST1l 

c8 LABL INY ;mext character in line 


D1 28 TSTl CMP (TXTA),Y;C.R. found already? 
DO F8 BNE LABL ;branch if noy 


Bl 28 LDA (TXTA),Y;store away for others 
85 2B STA CHAR 

c8 INY 

98 TYA ;calculate address 


part CR. 


18 CLC 

65 28 ADC TXTA 
85 28 STA TXTA 
85 33 STA TXA2 
AS 29 LDA TXT1 
69 00 ADC #00 
85 29 STA TXTl 
85 34 STA TA21 
Ad 00 LDA #00 
85 2A STA TXTP 
85 35 STA TXP2 
60 ENCR RTS 


Make the following changes to Aresco V3D 


208D 20 DO 26 (was 20 D7 26) 
21FF 20 DO 26 (was 20 D7 26) 
22E1 20 DO 26 (was 20 D7 26) 
2752 20 D2 26 (was 20 DO 26) 








or make the following changes to the Program Ex- 
change FCL-65E 


208D 20 DD 26 (was 20 E4 26) 
21FF 20 DD 26 (was 20 E4& 26) 
22E3 20 DD 26 (was 20 E4 26) 
275F 20 DF 26 (was 20 DD 26) 


Those of you with ROR instructions in your 
CPU can eliminate the ROR simulator in FOCAL with 
the following code. 


Start at $3291 for the Aresco version 3D 
Start at $3293 for the Program Exchange FCL-65E 


7E 89 00 RORL ROR EP4,X ;need not simulate ROR 
E8 INX 

DO FA BNE RORI1 

60 RTS 


Plenty more mods in store for FOCAL. Until 
next issue. 


tiny basic 


TINY BASIC CASSETTE SAVE & LOAD 


by William C. Clements, Jr. 
Univ. of Alabama 
Chem & Metal Eng. 
Box 2662 
University, Al 35486 


I recently bought TINY BASIC and the accom- 
panying experimenter's kit, and have enjoyed find- 
ing out how the BASIC statements are broken down 
and implemented. With a little study one can eas- 
ily pick up the pseudolanguage used to program the 
inner interpreter, and then all sorts of possibil-~ 
ities exist for custom modifications to suit one's 
whim, 1 noticed the comments about transferring 
BASIC statements to and from cassette tape in ls- 
sue 13 (Lew Edwards, p. 14), and thought perhaps 
your readers might be interested in how I added 
the SAVE and LOAD commands to my version of TINY 
BASIC for the KIM-l. With my implementation, TINY 
can use the existing KIM monitor routines (or any 
others if one wishes) to save and load programs, 
and transfer of starting and ending addresses, etc. 
is handled by a machine language routine. The 
cassette file number is specified in the added 
BASIC commands: SAVE X or LOAD X, where X is any 


integer 0 xX _ 255 corresponding to KIM file 

I.D.'s 00 through FF, My version of TINY is the 

one having the cold start at 2000 hex; correspond- 
ing address offsets can be added for other versions, 


The patch to the Intermediate Interpreter is 
made at relative location 00B7, as shown on p.38 
of the Experimenter's Manual. This is address 2827 
absolute. The patch is as follows: 








;teat for keyword SAVE 
00B7 8B534156C5 TAPE BC LOAD "SAVE" 
;push atart addreas of 


QQoBC 09 29 LB 29 

;save routine onto stack 
OOBE 09 OE LB OE 

;do it again 
00CO OB Q DS 

;error stop if file id not number 
o0ocl co BN 

3g0 to save routine at 290Ey 

00C2 2E us 


jtest for keyword LOAD 
00C3 8A4C4F41C4 LOAD BC DFLT "LOAD" 
;Push start address of 


00cC8 09 29 LB 29 
;load routine onto stack 
OOCA 09 28 LB 28 
: 3gB0 to load routine at 
oocc 38 CO 3 Q 
32928, via above instructions 
QOCE AO DFLT BV * 


' : ' (continue with 


: . ' remaining IL code) 

The constants after the LB commands specify 
the hex addresses of the machine language routines 
which handle the SAVE X and LOAD X functions. The 
line labeled DFLT is thus moved from relative lo- 
cation 0OB7 to OOCE, resulting in an offset of 17y 
or 23p for remaining lines. This must be accommo- 
dated in the jump and jump subroutine commands in 
the I.L. The changes in destination for those in- 
atructions which jump beyond the patch are listed. 
All error messages originating beyond the patch 
will also be increased by 23p. 


My version jumps to a pair of machine lan- 
guage routines which initialize the file i.d., 
SAL, SAH, and the TINY BASIC registers. BASIC 
files are saved using a Hypertape routine stored 
in EPROM at location C400q; if the user wishes to 
use the KIM tape dump routine, he should change 
the contents of location 2927 to 18y. Appropriate 
routines can of course be relocated anywhere the 
user wishes, so long as the correct entry points 
are provided for in the I.L. patch. After execu- 
tion of a SAVE or LOAD, TINY wust be manually re- 
entered at the warm start (the limits of memory 
for the BASIC statements are set for my system 
when BASIC is firat entered). A jump to warm 
start could of course be placed at the end of the 
tape dump and load routines if ones stored in RAM 
instead of ROM were being used. 


These alterations were worth their trouble in 
added convenience: SAVE 01 is a lot easier than 
exiting TINY, storing 01 in 17F9, and looking up 
the memory bounds for the BASIC statements to set 
SAL and SAH manually. I hope this modification 
will be of interest to other users of TINY BASIC. 


MACHINE LANGUAGE ROUTINES USED BY THE PATCH 


2906 8D F9 17 00 STA 17F9y STEPS COMMON TO 
A9 00 LDA $00 BOTH 
85 Fl STA OOFly ROUTINES 
60 RTS 
290E 20 06 29 SAVE JSR 00 FILE SAVE ROUTINE 
A5 20 LDA 0020y 
8D F5 17 STA 1L7F5y 
A5 21 LDA 0021y 
8D F6 17 STA 17F6y INITIALIZATION 
AS 24 LDA 00244 
8D F7 17 STA 17F7y 
A5 25 LDA 0025y 
8D F8 17 STA 17F8y 
4C 00 C4 IMP HYPERTAPE 
2928 20 06 29 LOAD JSR QQ set 17F9y, OOF 1, 
4c 73 18 JMP TPLOAD read tape 
292E AD ED 17 ENTER LDA EAL set address 
85 24 STA 0024y at end 
AD EE 17 LDA EAq of BASIC 
85 25 STA 0075y program file 
4C 03 20 JMP BASIC go to warm start 


Restart BASIC at ENTER (loc. 292Ey) after loading. 
Restart at warm start (2003q in my version) after 
saving. 
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Summary of additional modifications to I.L. 
Code (new transfer statement destination caused by 
insertion of patch) 


Relative Location 
(See pp. 36-40 TINY 
BASIC Experimenter's 


Manual } New Instruction 
0014 30 D3 
OO1F 30 D3 
0029 30 D3 
004B 30 D3 
0052 30 D3 
0054 31 4B 
0056 30 D3 
0073 30 D3 
O0O09E 30 D3 
OOBE 30 EA 
00c4 30 EA 
00C8 30 EA 
OOCE 30 EA 
00D3 30 F9 
00D? 30 F9 
OOF? 31 47 
0114 30 D3 
0116 31 41 
0118 31 41 
0125 30 D3 
012C 38 D3 


TINY BASIC STRINGS 


by Michael E Day 
2590 DeBok Rd 
West Linn, Or 97068 


Here is the string mod I've been using which 
I access thru the USR verb, This requires 512 
bytes of memory, and is relocatable and will run 
out of ROM or protected memory except for the 
storage area which operates out of RAM, however 
it can be located in any 256 byte block of free 
memory. 


PEEK $ USR(2816,ADDRESS) 
PEEK at string at the string relative address 
ADDRESS. Returns decimal value of addressed byte. 


POKE § USR(2822,ADDRESS , DATA) 
POKE data byte DATA into the string relative 
address ADDRESS. Returns string relative address 


plus one. 


INPUT SPS USR(2832,BEGIN,END) 

INPUT a string of characters beginning with 
string relative address BEGIN, echoing back a 
space with each input character, until a carriage 
return is encountered, or the ending address END 
is reached, Returns the string relative ending 
address plus one. 


INPUT $ USR(2839, BEGIN, END) 

INPUT a string of characters as in INPUT SP$, 
but without the space echo, Returns the string 
relative ending address plus one. 


PRINT SP$ USR(2905,BEGIN,END) 

PRINT the character string beginning with the 
string relative address BEGIN, and print a space 
after each character, until a carriage return is 
encountered, or the ending address END is reached. 
Returns the string relative ending address plus 
one. 


PRINT $ USR(2912,BEGIN,END) 

PRINT the character string as in PRINT SP$, 
but without the space echo. Returns the string 
relative ending address plus one. 


SEARCH $ -USR(2946,BEGIN,DATA) 

SEARCHes for the BCD equivalent of decimal 
value DATA, beginning at string relative address 
BEGIN, until a match is found, or the ending ad- 
dress of variable "L" is reached. Returns the 
string relative ending address plus one, 

If a match is not found the return address 
will be 0 (zero). Variable "L" is decremented 
once per test until match is found, or it is O. 





MOVE $ USR(2966,FROM,TO) (Length in variable INPUT SPS USR(2832,BEGIN,END) 













“L") OB10 20 B5 OB JSR OBBS5 Set pointers B 

MOVEs a group of characters of the length in OB13 84 1B STY 1B Clear 1B 
variable "L" beginning at the relative string OB15 BO 03 BCS OBI1A Goto Input routine 
address FROM, and moving them to relative string 
address TO, for the length of variable "L". Re~ 
turns the FROM ending address plus one. Variable INPUT $ USR(2839,BEGIN,END) 
"L" ig zeroed. (Lower 8 bits only, see notes on OB17 20 B85 OB JSR OBBS5 Set pointers B 
addressing of strings). OB1A A9 3F LDA #3F 

OB1C 20 09 02 JSR 0209 Print a "7?" 

SET POINTERS OBIF A9 26 LDA #20 

These are memory formating routines that are 0B21 20 09 02 JSR 0209 Print a "Sp" 
addressed by the other routines, and are listed 0B24 20 06 02 JSR 0206 Get a character 
with USR statements only for reference. They do 0B27 CD 10 02 CMP 0210 Is it "ESC"? 
not need to be accessed by TINY. OB2A FO 28 BEQ OB54 If so return to TINY 

OB2C CD OF 02 CMP 020F Ie it "BS"? 

OPERATIONAL NOTES OB2F DO 11 BNE 0B42 If so back up 

Addressing is limited to 0-256 (8 bit ad- 0B31 A5 1A LDA 1A 
dressing) and the upper bits are ignored (I.E. 512 0B33 C5 18 CMP 18 Is it begin of array? 
will appear as a 0, and 513 will appear as a 1). OB35 FO EB BEQ OBIF If so restart 

The string array table is perminently fixed 0B37 C6 18 DEC 18 Decrement pointer 
to 256 bytes in length, and dedicated for this 0B39 AS 1B LDA 1B Input SP$ ? 
purpose. This table may be located anyplace in OB3B DO E7 BNE OB24 If not get next 
RAM so long as intrusion from other sources is character 
not allowed. Relocation is done by changing the OB3D AD OF 02 LDA O20F Get "BS" 
page location address at OBAA (OBAA AQ OC LDY 0B40 90 DF BCC 0B21 Print it 
#0C). The routines that access the table are OB42 91 «18 STA (18),Y Store data 
clean. (They are relocatable, and will operate : 
out of ROM or protected memory.) 

All data passed through the USR statements INPUT $ USR(2839,BEGIN,END) Con’t. 
both to and from is in decimal. The data inside OB44 E4 18 CPX 18 Is it end of array? 
the routines however, remain in BCD. 0B46 FO OC BEQ OBS4 If so return to TINY 

In the PRINT and INPUT routines, if the BEGIN OB48 E6 18 INC 18 Increment pointer 
address is less than the END address, an error OB4A C9 OD CMP #0D Is it a "CR" 
exit will occur which causes the exit address to OB4C FO 08 BEQ OB56 If so return to TINY 
be 0, and the funciton asked for is not performed. OB4E AS 1B LDA 1B Print a "SP"? 

If only one address is given, the second ad- OB50 DO D2 BNE 0B24 If not get next byte 
dress will be assumed to be equal to the first ad- 0B52 FO CB BEQ OBI1F Print a "SP" 
dress given (I.E. USR(2912 0) will print out a 0B54 E6 18 Inc 18 Increment pointer 
single character at location 0 and return an ad- OB56 AS 18 LDA 18 Return exit address 
dress value of 1 to TINY, to TINY 

As with any USR etatement in TINY, the ad- 0OB58 60 RTS Return to TINY 


dress and data information passed through the USR 


statement can be calculated from any expression. PRINT SP§ USR(2905, BEGIN, END) 








(Such as USR(2912,B,E~2) can be used to print ake a 2 OB a eg ee eee cer y 
a string starting at the address in variable "B", ORSE. HO 03 RUE: Ree e eis 5a oe 
and using the E-2 to suppress the ending carriage Ob PERE Tewe En 
return, and another variable can be used to pick- 
up the returning ending address.) PRINT $ USR(2912,BEGIN, END) 
The routines given have been located at the anes at ee OB esd Ganj ‘ eee dete 5 
end of TINY, as this allows for easy isolation Bie oe ng hes Case: nae er eee . ne 
from TINY by revising the user memory starting ad- eM aE Soler - 
dress located at 028B. OB68 EA 18 CPX 18 Is it end of array? | 
028B A9 OB LDA #0B Old starting address OBOA FO 11 BEQ OB7D If end return to TINY| 
028B A9 0D LDA #0D New atarting address Faces os aS ae ne ae eae 
This is the only place that TINY references 0B70 FO OD BE ORIE re azire ‘ oI Tiny 
this, go it is the only thing that needs to be 0B72 AS 1B say 1B 5 mee ae re 2 
changed. NOTE: A cold start MUST be done after 0B74 DO ED BNE 0B63 Te ae : : Byte 
this change to set the pointers, or else they will 0B76 AS 20 LDA #20 n get. nex y 
Havieche Seger ny eva 0B78 2009 02 JSR 0209 Print a "Sp" 
The entire string mod requires less than 512 eer es SHE OBS aes eek ere RYE 
f£ d 187 . 
Aba paises an pare tiie Bey EE REE eye SNe: OB7D £E6 18 INC 18 Increment pointer 
eS : OB7F AS 18 LDA 18 Get exit addrees 
A possible mod would be to place the array OBel 60 RIS Retura to TINY 
De er eg te geen ogee SEARCH § USR(2946,9E61N,DATA) (Length, in var- 
would allow for greater than 256 bytes, but pro- 0B82 02 A8 OB JSR OBAB8 See iG 
reelrbags eerie tT a oss Sits” bk (18),y Pick’up tect Syce 
i BB7 E6 18 N i 
The cancel code used in TINY will terminate Hae : 1A oa ra Pag cugkee ee 
an INPUT $ without putting the character into the OB8B FO 06 BEQ 0393 lf so rane to TINY 
array, therefore this code can not be used direct- OBB8D C6 9B DEC 98 Décrament: variable'L'{ 
ly. All previous characters will have been in- OB8F DO F4 BNE 0B85 Tf ask gee nese byte 
Serbed  howevery 0B91 84 18 STY 18 Clear 18 (pointer) 
PEEK § USR(2816, ADDRESS) OB93 A5 18 LDA 18 Return exit address 
2 t TINY 
0B00 20 A8 OB JSR OBAB Set pointers A 0895 60 ane ie ean es 
OB03 Bl 18 LDA (18),Y Pick up data 
OBOS5S 60 RTS Return to TINY 
MOVE $ USR(2966,FROM,TO) (Length in variable 
a Lb ae 
4g 
@ POKE $ pl daca aarony sare " 0B96 20 A8 OB JSR OBA8 Set pointers A 
ae eee oes A te” Lok (i8}.x afewTup yee 
» 7 OB9OB 91 1A STA 1A),Y Sto it 
OBOB E6 18 INC 18 Increment pointer OnOD: EE LB the ae 5S 
OBOD AS 18 LDA 18 Return address to TINY OBOF £6 1A INC 1A Increment pointers ! 
OBOF 60 RTS Return to TINY OBAl C6 98 DEC 98 Décrement variable lL! 


OBA3 
OBAS 


OBA? 


SET POINTERS A 


OBA8 
OBAA 
OBAC 
OBAE 
OBBO 
OBB2 
OBB4 
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Do 


60 


84 
AO 
84 
84 
AO 
85 
60 


F4 
A5 18 


18 
oc 
19 
1B 
00 
1A 








BNE 0B99 If end return to TINY 

LDA 18 Return exit address 
to TINY 

RTS Return to TINY 

USR(2984,Y,A) 

STY 18 Save begin 

LDY #0C Set array page 

sTY 19 Store array page 

STY 1B Store array page 

LDY #00 Clear Y 

STA 1A Save A 

RTS Exit 


LINE@ 


0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0330 
0540 
0550 
0560 
03570 
03580 
03590 
0600 
0610 


ADDR 


2000 
2000 
2000 
2000 
2000 
2000 
2000 
2000 
2000 
2000 
2000 
0010 
0011 
0013 
0015 
0015 
0015 
OODF 
OOE1 
OOE1 
OOE1 
0069 
006B 
004E 
0050 
0050 
0050 
F067 
F067 
F067 
F069 
FO6B 
FO6B 
FO6éD 
FO6F 
FO71 
FO73 
F073 
FO75 
F077 
FO79 
FO7B 
FO7B 
FO7E 
FO7E 
FO80 
Fos82 
F084 
F084 
F086 
F086 
Foss 
Foss 
Foss 
FO8A 
FO8A 
Fosc 
FOBE 
F090 
FO92 
FO92 


SET POINTERS 8B 


OBB5 
OBB8 
OBB9 
OBBB 
OBBD 
OBBF 
OBC1 
OBC2 
OBC3 
OBC4 


READ 
OBFB 
OBFB 
OBFD 
OBFF 


assembler 


HDE ASSEMBLER REV 1.1 





20 A8 OB JSR OBA8 
AA TAX 

A5 18 LDA 18 
85 1A STA 1A 
E4 18 cPxX 18 
BO 03 BCS OBC4 
68 PLA 

68 PLA 

98 TYA 

60 RTS 
KEY USR(3064) 

AD 00 CO LDA 0CcoOo 
29 7F AND #7F 
AO 00 LDY #00 
60 RTS 


USR(2997,Y,A) 


Set pointera A 
Save end 
Recapture begin 
Save it 

Bad addresa? 

If so go error 


Discard string link 
Clear A 
Exit 


Pick up data 

Clear bit 8 (Strobe) 
Clear Y 

Return to TINY 


OBJECT SOURCE PAGE 0001 
#THIS IS A SYMBOL TABLE SORT ROUTINE FOR 
sTHE MOS/ARESCO ASSEMBLER. IT GETS PATCHED 
#IN TO THE ASSEMBLER AND INSTALLED IMMEDIATELY 
SFOLLOWING IT STARTING AT €FO067. 
SWRITTEN BY J. FATOVIC 
§FOR THIS ROUTINE TO OPERATE, CHANGE 
§SEBOD AND SEB9E TO 667 SFO RESPECTIVELY, 
U 
&=610 
FLAG e=3+1 
CADL t=2+2 
NADL Rak+2 
MON =$1C14 
s=6DF 
STSAVE *ee+2 
NSTAT =8EAEE 
SYMLEN #806 
4=669 
SYMPTR #=&+2 
S=64E 
NOSYM &=&+2 
4=6F067 
+OFF 2000 
Ag O1 SORT1 LDA #1 ¢ SET FLAG 
65 10 STA FLAG 
AS DF LDA STSAVE § INIT. CURRENT ADR 
85 11 STA CADL 
AS EO LDA STSAVE+1 
85 12 STA CADL+1 
A? O1 LDA #1 § INITIATE POINTER 
85 6A STA SYMPTR+1 
A? 00 LDA #0 
85 69 STA SYMPTR 
20 D9 FO JSR ADRNS § INIT. ADR OF NEXT SYMBOL 
AO 00 LDY #0 
B1 11 SORT2 LBA (CADL)sY 
D1 13 CMP (NADL) sY 
FO 2D BEQ SRT1 § IF EQUAL COMP NEXT CHAR 
BO 33 BCS REX + NEXT SYMBOL PRECEDES - 
#SO EXCHANGE REGS ‘ 
AO 00 SORT3 LDY #0 
AS 13 LDA NADL § MAKE ADR OF NEXT SYMBOL - 
85 11 STA CADL 5~CURRENT ADDRESS 
AS 14 LDA NADLt1 
85 12 STA CADL+1 
20 DP FO JSR ADRNS 








0620 
0630 
0640 
0650 
0660 
{ 0470 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
o8ao 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
1040 
; 1050 
@ 1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 


FO9S 
FO9S 
FO9S 
F097 
FO99 
FO9B 
FO9D 
FO9D 
FOo9D 
FO9E 
FOAO 
FOA2 
FOA4 
FOA4 
FOR6 
FOA8 
FOAA 
FORA 
FOAC 
FOAE 
FOBO 
FOBO 
FOBS 
FOBS 
FOB4 
FOB6 
FOBS 
Foss 
FOBB 
FOBB 
FOBB 
FOBD 
FOBF 
FOCO 
FOCc2 
Foc4 
FOCS 
FOC7 
FOC? 
FOC? 
FOCA 
FOCB 
FOcD 
FOCE 
FODO 


FODO 
FoD2 
FOD4 
FODS 
Fob? 
FOD9? 
Fob? 
FODA 
FODB 
FopD 
FODF 
FOE1 
FOES 
FOES 
FOE7 
FOE8 
FOE8 


E6 
BO 
E6 
FO 


B8 
As 
cs 
90 


AS 
cs 
90 


AS 
29 
FO 


4c 


ce 
co 
bo 


4c 


AO 
Bi 
48 
Bi 
91 
cs 
co 
bo 


88 
68 
91 
68 
10 


Ag? 


85 
4c 


18 
ps 
AS 
69 
65 
AS 
69 
85 
60 


ERRORS = 0000 


6A 
04 
69 
13 


69 
4E 
pc 
6A 
4F 
Dé 
10 
01 
B7 
€E 
08 
ce 
14 
00 
11 


13 


0B 


EA 


1c 


F4 


13 


FA 


FE 
10 
10 
68 


11 
08 
13 
12 
00 
14 


FO 


INC 
BNE 
INC 
BEQ 


COMP cLY 
LDA 
CMP 
BCC 


COMP2 LDA 
CMP 
BCC 


LDA 
AND 
BEQ 


FINE JMP 


SRT1 INY 
CPY 
BNE 


JMP 


REX LDY 
RX1 LDA 
PHA 
LDA 
STA 
INY 
CPY 
BNE 


DEY 
RX2 PLA 
STA 
DEY 
BPL 


LDA 
AND. 
STA 
JMP 


ADRNS CLC 
CLD 
LDA 
ADC 
8TA 
LDA 
ADC 
STA 
RTS 


SYMPTRt+1 
COMP 
SYMPTR 
FINE 


SYMPTR 
NOSYM 
80RT2 


SYMPTRt1 
NOSYM+1 
SORT2 


FLAG 
#1 
SORT1 


NSTAT 


#SYMLENt2 
SORT2 


MON 


#0 
(CADL) *Y 


(NADL) s ¥ 
(CADL) *Y 


@SYMLENt2Z 
RX1 


CNABL) r¥ 


RX2 


@SFE 
FLAG 
FLAG 
SORTS 


CADL 
@SYMLENt2 
NADL 
CADL+1 

#0 

NADL+1 


FINISH .END 


§ INCREMENT POINTER 


§ FIND IF THIS I8 THE 
SLABT LINE 


§ CHECK IF FLAG SETr IF SET EXIT 


§ SORT COMPLETED 


§ POINT TO NEXT CHAR 


§ ERROR» RETURN TO MONITOR 


§ EXCHANGE REGISTERS 


§ RESET FLAG 

















AIM info— 


WARNING WARNING WARNING 


by Leo Scanlon 
Documentation Manager 
Rockwell Microelectronic Devices 
P.O. Box 3669, RC55 
Anaheim, CA 92803 


As Documentation Manager at Rockwell, I read 
with interest the article on AIM 65 Manual correc- 
tions published on page 20 of 6502 User Notes, No. 
14. In this article, reader Jody Nelis recommends 
using Texas Instruments #TP-27225 thermal paper 
with the AIM 65. I urge you to warn all readers 
NOT to use this particular paper type in their AIM 
65's. We have found this particular paper to be so 
highly abrasive that it can ruin the printer head 
in a matter of hours! In fact, because of experi- 
ences with this paper, we mailed a bright red warn- 
ing to all AIM 65 owners, giving them a list of 
"approved" paper types. 


The approved paper types are: 


1. Rockwell #TT270 
Source: Rockwell Service Center 
6003 Threadgill Avenue 
El Paso, Texas:79924 
Phone (800) 351-6018 


2. Sears #3974 or #3986 
3. Olivetti #74707 or #74708 


4. NCR #T1102 
Note: This paper produces black print, 
the others produce blue print. 


All other corrections noted in the article 
have been picked up in a set of change pages that 
we mailed to AIM 65 owners that returned the Doc- 
ument Registration Form, 


Incidentally, I always appreciate comments, 
corrections, gripes, etc. from readers of our 
manuals, and invite them to write to me directly 
at the address at’ the top of this article. 


READING KIM CASSETTES from D.R. 


Something not mentioned in the AIM65 owners 
manual makes reading KIM tapes impossible. The 
ID number is the last two digits of the file name. 
To read file #2B, enter ‘xxx2B' in response to the 
're' prompt. It took me quite awhile to figure it 
out,.and I thought I'd pass it along. 


See $E3A4 in monitor listing for code. 


EPROMS FOR AIM from D.R. 


I have a modification for AIM 65 to allow use 
of on-board ROM sockets with 2758” EPROMS. Use a 
low profile 24-pin socket and bend legs 18, 19, 20 
away from the body. Solder a bridge across 19,20 
and then attach 1" wire wrap wire to junction scrap 
away soder-mask at botton of chip with an exacto 
knife and solder loose end of wire to exposed spot. 
Next attach 24 - 3" piece os WWW to pin 18 and pin 
10 of 227. (For use in address range of DOOO - 
DFFF.) See page 7-10 of AIM 65 User's Manual for 
pin # of different CS llines, insert socket and 
prom. Until the assembler and basic show up the 
sockets may be used for user programs with single 
key entry. Jade Computer Pwoducts have 2758 EPROMS 
(Intel +5V only) in stock, and have good service, 


*You can do this with TMS 2516, 2716, 2732 etc. 
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NOTES ON AIM USER 1/0 


by Larry Goga 
3816 Albright Ave. 
Los Angeles, Ca 90066 





According to the AIM-65 User's Guide, there 
is only one user character input subroutine which 
will display a cursor, echo a character, and allow 
the delete key to function. (see Section 7.7.1 in 
the User's guide.) This subroutine is identified 
variously as RUBOUT or RDRUB and resides at add- 
ress E95F in the AIM Monitor. If you have exper- 
ienced difficulty in getting this subroutines to 
support the DELETE function do not be alarmed. 
After consulting Rockwell about this problem it 
seems that there is more to using this subroutine 
than meets the eye. 


The AIM documentation says that RDRUB uses the 
accumulator and the Y Index Register. Although 
this is true, what is not explained is that the Y- 
Index Register must be incorporated into the user's 
program. 


If the Y-Index Register is zero when you call 
RDRUB then the DELETE function will not work. If 
the Y-Index Register is negative (MBS set) when 
you.call RDRUB then strange things will happen 
when the DELETE key is pressed. You may also have 
found that when the DELETE function is working and 
you attempt to delete beyond the first character 
display position the program hangs-up and s ques- 
tion mark is shown in the center of the display. 
The only way out of this problem is "RESET". 


The solution to these problems is to use the 
Y-index Register as an input counter. The Y-Index 
Register should be cleared to zero before calling 
RDRUB. Then, calt RDRUB, and upon returning in- 
crement the Y-index Register. In this manner the 
Y-Index Register will contain a count of the number ; 
of characters which have been inputted from the Q 
keyboard to the display. This positive count in the < 
Y-Index Register is the number of times the DELETE 
key will work (ie. Y20, no deletes; Y*5, 5 deletes; 
etc.). The reason for using the Y-Index Register 
in this manner is that the RDRUB subroutines auto- 
matically decrements the Y~Index Register every 
time the DELETE key is pressed, but does not re- 
turn from the subroutine until some other display- 
able character key is pressed, 





An example of this use of RDRUB and the Y- 
Index Register will be found on page 35 of the AIM 
MONITOR LISTINGS. In a subroutine called ADDIN at 
address EAAE we find the Y-Index Register being 
cleared to zero in line 1668; and, after checking 
for a carriage return or space, we find the Y~-In- 
dex Register being incremented at line 1673. Af- 
ter checking for not more than 10 characters in- 
putted, the program loops back to input the next 
character. By implementing these steps in your 
program you should find that the DELETE function 
will work correctly. 


(Courtesy of the San Fernando Vakkey 6502 Users 
Group) 


-MEMORY_TEST PROGRAM 


ADAPTED FROM "MEMORY TEST" BY JLM BUTTERFIELD 
FROM "THE FIRST BOOK OF KIW* 





MODIFIED TO RUN ON ROCKWELL AIN-65 
BY LARRY GOGA 





_ ENTERED: 5 JANUARY 1979 
REVISED: b yew 79 


NOTE: ( 
FOR “FROM” AND “TO” PROMPTS ENTER ONLY THE LOW 

AWD HIGH PAGE LIMITS (HIGH ORDER ADDRESS BYTE) 

THEN TYPE <CR>. 


cont on page 20 


The ullimate 2 Motherboard lel any KIM: cD SYM- 4. or AIM, (ose) system 


° siieicte ialoldel/Violt-mielt Satronal use of 
47 (128K olelols—siiale) limit) 














0000 MTEST ORS $0000 FID: MTEST sFLIP VALUE IN ALL LOCATIONS - NOW CHANGE 1 IN 3 








0035 Ab BA LDXZ MOD 
Ne ha as nanaerpual eagay 0037 AS 85 LDAZ BEGIN 
0039 85 88 STAZ POINTH SET POINTER BACK 70 START 
003K AS 89 = FILL. «ss LDAZ =FLAG © CHANGE VALUE 
BEGIN * $0085 ; 
net END 8 (80084 0030 CA TOP DEX 
at BiG. —-a00es DO3E 10 04 BPL SKIP ;SKIP 2 OUT OF 3 
ance PanTica, enone 0040 Aa? 02 LDXIM $02 SRESTORE 3-COUNTER 
ae ake. “apoae 0042 91 87 STAIY POINTL ;CHANGE 1 OUT OF 3 
0000 HOD © =——«8008A eee ane 
0000 FLIP # = $0088 ee ee ee 
Rice MePes. saMaie 0047 Eé 8B INCZ POINTH ;NEW PAGE 
nh SEK a) CAAAE 0049 AS 86 LDAZ END | SHAVE WE PASSED END OF 
O04B C5 68 CKPZ POINTH :TEST AREA? 
z 004 BO EC BCS FILL :NOFE, KEEP GOING 
eee OUR BAU ANE Caves ae ;MEMORY SET UP, NOW TEST IT 
nee ae eT OOAF AS 65 LDAZ BEGIN jSET POINTER BACK TO START 
Pies Saran 1 oaeeS 0051 85 88 STAZ POINTH 
ee Tadeie. < eCGdE 9053 Ab OA LDXZ MOD SET UF 3-COUNTER 
a tani, EATS O55 AS Bo POP ©—sLDAZ FLIP STEST FOR FLIP VALUE 
SoG ale a. 2MEELS 0057 CA DEX 72 OUT OF 3 TIMES 
0058 10 04 BPL SLIP 30R 
eer 005A Az 02 LDXIM $02 31 OUT OF 3 
oath: Ree ernaene oe 005C AS 89 LDAZ FLAG  ;TEST FOR FLAG VALUE 
0000 20 AS. E7 INPUT JSR ROX  ;GET LOW PAGE LIMIT QOSE BY 87 BLIP. CHPLY POINTL cHERE’S THE TEST 
0003 aD 10 AA LDA = ADDRL 0060 DO 15 BNE OUTPUT ;BRANCH IF FATLED 
0006 85 65 STAZ BEGIN 0062 CB INY 
0008 20 3B EB JSR BLANKT: eater SAE: «Bae 
000B 20 A? E? JSk 10 GET AIGH PAGE LIMIT 0065 E6 88 INCZ POINTH 
OO0E AD 1C AA LDA ADDRL 0067 AS Bé LDAZ END 
0011 85 86 STAZ END 0049 C5 88 CMPZ POINTH 
004B BO EB BCS POP 
0013 A9 00 «START. =LDAIN $00; ZERO POINTERS FOR SABOVE TEST OK - CHANGE AND REPEAT 
0015 AB TAY *LOU-ORDER ADDRESSES 004D C4 BA DECZ MOD © CHANGE 1 OUT OF 3 POSITIONS ANE 
0014 B5 87 STAZ POINTL O0SF 10 AD BFL FASS DO NEXT THIRD 
0018 @5 89  ©-BIGLP STAZ FLAG  ;200 FIRST PASS, =FF SECOND Pass 0071 AS B9 LDAZ FLAG 
OO1A A2 02 LDXIM $02 , 0073 49 FF EORIM $FF + INVERT FLAG FOR PASS TRO 
O0IC 86 BA STXZ MOD  ;SET 3 TEST EACH PASS 0075 30 Al BK] BIGLP 
OO1E AS 65 —»~PASS.-—«sLDAZ «BEGIN ;SET POINTER TO START OF 
0020 B5 88 STAZ POINTH ;TEST. AREA 0077 BC 1C A4 OUTPUT STY ADDRL ;SAVE LOW ORDER ADDRESS 
0022 Ab 84 LDXZ END 007A AS BB LDAZ POINTE 
0024 AS 89 LDAZ FLAG 007C BD 1D A4 STA ADDRH ;SAVE HIGH ORDER ADDRESS 
0026 49 FF EORIM $F REVERSE FLAG 007F 20 13 EA Sk CRLOW 
0028 85 Bb STAZ FLIP  $=FF FIRST PASS, =00 SECOND FASS 0082 4C 39 EB JNP AFAIL jIISPLAY MESSAGE AND ADDRESS 
002A 91 87 CLEAR STAY POINTL WRITE ABOVE FLIP VALUE SAND RETURN TO ATM MONITOR 
0020 CB INY FINTO ALL LOCATIONS 
002D DO FB BNE CLEAR seasx END PROGRAH taeae 
002F £6 8B INCZ POINTH 
0031 E4 88 CPXZ POINTH 
0033 BO FS BCS CLEAR 


KI MSI S |] 0 0 
9 connect a 560 ohm resistor from IC U16~1 


to Vee (+5¥) at the common ends of R36, 


MODIFICATION TO KI 37, 38 and 35 (all 560 ohm). 


MO ; M TO MEMORY 
SPACE BELOW MONITOR 3. Last, insert a 4K RAM board into the KIM- 


SI with a starting address of 0000 H. 
Note that all 3 steps must be taken. 


I TO ADD 4K 








by John R. Campbell 
6278 Lake Lucerne Dr. 


4 Incidently, the KIMSI diagram has an error: 
San Diego, Ca 92119 


Ic 1B-8 is connected to IC 11C-9 and IC9E-10 does 


Ree ¢ not connect to IC 11C-9. 
The KIMSI, as originally designed, allow ad- ceca 


dition of S-100 type interfaces to the KIM-1l, but 
only in the address space from 2000 Hex and up. 
By making the following changes, 4K of RAM memory 
can be added to give a total of 4K from 0000 H to 
13FF H, which is desireable to have. 


The KIMSI is manufactured by Forthaught Pro- 
ducts, Box 386, Coburg, OR 97401. 


1. The KIMSI is modified by cutting the trace 
between IC 8A-12 and IC 9B-3. A 7425 
Dual 4 input NOR is added in the expan- 
sion area and is wired a8 SHOWN, yevmenm dD 


This part of the modification enables the 
KIMSI and disables the KIM-1 for address 
space from 0000 H through OFFF H. 


2. The second part of the modification moves 
the onboard KIM RAM from 0000 through O3FF 
to 1000 through 13FF. This is done by 
cutting the trace between IC UW4-1 and IC 
U16-1. The proper place for cutting this 
trace is on top of the KIM-1 board near 
where the trace meets Ul6-1. On top of 
the board connect IC Ul6-1 to IC u4-5 and 
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HUDSON DIGITAL ELECTRONICS, INC. 


ing BOX 120, ALLAMUCHY, N.J.07820 @ 201-362-6574 


KIM-1 PRODUCTS FROM HDE, INC. 


DM-816-M8 8K STATIC RAM MEMORY 

This is the finest memory board available for the KIM-1 at any price. Commercial/tndustrial quality. All 
boards are continuously operated and tested for a minimum of 100 hours prior to release. Full 6 month parts 
labor warranty. 


DM-81 6-DI1 8” FLEXIBLE DISK SYSTEM 
Available in single and dual drive versions. Includes interface card, power-supply, Sykes controller and 
drive, cables and manual. File Oriented Disk System software with HDE text editor. 


DM-816-MD1 5” FLEXIBLE DISK SYSTEM 


Single and dual drive versions include interface/controller, power supply, Shugart drive, cables and man- 
ual. Advanced version of FODS software with HDE text editor. Latest addition to HDE peripheral product line. 


DM-816-CC15 MOTHER BOARD 
A professional mother board for the KIM-1. All KIM-1 functions remoted, includes power on reset. 15 con- 
nectors. Provision for Centronics printer interface. Card cage and cabinet configurations available. 


DM-816-UB1 PROTOTYPE CARD 
Designed for ease of special applications development. Handles up to 40 pin dips. 


HDE ASSEMBLER 

An advanced, twopass assembler using 6502 cross-assembler mnemonics. Free form, line oriented entry. 
Directives include: .OPTION, .BYTE, .WORD, .FILE, OFFSET, .END. Output options include: LIST, NOLIST, 
SYMBOLS, NOSYMBOLS, GENERATE, NOGENERATE, ERRORS, NOERRORS, TAB, NOTAB. Assemble from 
single or multiple source files. Place source, object and symbol table anywhere in memory. Automatic paging 
with header and page number. User's manual. Approximately 4K. Loads at 2000 or E000. Specify on order. 


HDE TEXT OUTPUT PROCESSING SYSTEM (TOPS) 

A comprehensive output processor, including left, right and full justification, variable page length, page 
numbering (Arabic or U/C and L/C Roman), page titling, string constants, leading and trailing edge tabbing, 
field sequence modification, selective repeat, selective page output and much more. Over 30 commands to for- 
mat and contro! output of letters, documents, manuscripts. User's manual. Approximately 4K. Loads at 2100 or 
E100. Specify on order. 


HDE DYNAMIC DEBUGGING TOOL (DDT) 

Built in assembler/disassembler coupled with program controlled single step and dynamic breakpoint 
entry/deletion facilitates rapid isoiation, identification and correction of programs under development. Key- 
strokes minimized with single letter, unshifted commands and optional arguments. User’s manual. Approxi- 
mately 2K. Loads at 2000 or EOOO. Specify on order. 


HDE COMPREHENSIVE MEMORY TEST (CMT) 

Eight separate diagnostic routines test for a variety of memory problems. Each diagnostic, the sequence 
of execution, the number of passes and halt/continue on error is selected by the user on call-up. Tests include 
pattern entry and recall, walking bit, data-address interaction, access time and cross talk, simulated cassette 
load, slow leaks. Suitable for static and dynamic ram. User’s manual. Approximately 3K. Loads at 2000 or E000. 
Specify on order. 


HDE TEXT EDITOR (TED) 

Complete, tine oriented text editor accepts upper or lower case commands. Functions include line edit, 
line move, line delete, block delete, resequence, append, list, print, locate, set, scratch, automatic/semi-auto- 
matic line numbering, lastcommand recall, job command. This editor is supplied with all HDE Disk Systems. 
User’s Manual. Approximately 4K. Loads at 2000 or EOOO. Specify on order. 


ALL PROGRAMS ARE AVAILABLE FOR LOCATIONS OTHER THAN 
THOSE SPECIFIED AT ADDITIONAL CHARGE. 


Disk-Note A Cassette-Note B Manual Only Note C 


HDE Assembler $ 75.00 $ 80.00 $ 5.00 $25.00 
HDE Text Output Processing System (TOPS) 135.00 142.50 10.00 15.00 
HDE Dynamic Debugging Tool (DDT) 65.00 68.50 5.00 5.00 
HDE Comprehensive Memory Test (CMT) 65.00 68.50 3.00 5.00 
HDE Text Editor (TED) N/C 50.00 5.00 15.00 


Note A. Media charge $8.00 additional per order. Save by combining orders. 
Note B. Cassette versions available 2nd qtr. 1979. 
Note C. Additional charge for object assembied to other than specified locations. 


ORDER DIRECT OR FROM THESE FINE DEALERS: 


LONG ISLAND 
JOHNSON COMPUTER PLAINSMAN MICROSYSTEMS ARESCO COMPUTER GENERAL STORE LONE STAR ELECTRONICS 
Box 523 Box 1712 P.O. Box 43 103 Atlantic Avenue Box 488 
Medina, Ohio 44256 Auburn, Ala. 36830 Audubon, Pa. 19407 Lynbrook, N.Y. 11563 Manchaca, Texas 78652 


216-725-4560 800-633-8724 215-631-9052 





516-887-1500 512-282-3570 


















65XX chip family stuff 


CPU BUG 


by Heinz J. Schilling, DJ1XK 
Im Gruen 15 
D-7750 Konstanz 16 
West Germany 


This evening I was informed by Dr. Karl Mein- 
zer (see BYTE 1/79: "IPS") that something seems to 
be wrong with the JMP Indirect instruction. 


I have made some quick tests, and I must in- 
form you that the JMP Indirect is indeed defective! 


The MOS Programming Manual says (page 141, 
9.8.1.): 

"In the JMP Indirect instruction, the second 
and third byte of the instruction represent the 
indirect low and high bytes respectively of the 
memory location containing ADL. Once ADL is 
fetched, the program counter is incremented with 
the next memory location containing ADH." 


But this is only correct al long as the loca- 
tion containing ADL is not the last byte of a page! 








In this special case the incrementation works 
like a wrap around in the page as the handling of 
the carry seems to be processed -incorrect. 


The ADL is fetched from the last byte of the 
page, but ADH is fetched from the first byte of 
the same page instead of the first byte of the next 
page. This error occurs with CPU chips from MOS 
and from Synertec, it will be the same with Rock- 
well chips eventually. 


So it is wise not to use the JMP Indirect 
instruction in the form of 6C FF xx. 


6522 INFO & DATA SHEET CORRECTIONS 


THE EDITOR 
In issue #13 we presented a 6522 1/0 board 
design. If you've looked over the 24 page 6522 
spec sheet, you've probably commented on the com- 
plexity of the device. 


While I was at MOS Technology, I had occasion 
to go through the spec sheet and confirm many of 
the chips operating modes. A number of typograph- 
ical & operational errors were found and noted, 
(thanks to feedback from a number of sharp users). 
Things may make a little more sense after our dis- 
cussion of the problem areas with the 6522 VIA chip 
and documentation. 


page 3 - the peripheral B port is capable of 
sourcing 3.0 ma (not 30 ma). 


page 13 - last sentence should read "Bit 7 
will be read as a logic 2. 


page 16 - section 4 should read-"If ACR5=0, 
T2 acts..." 


page 24 - the delay time for Tsrl, Ter2, and 
Tgr3 should be 300 ns minimum and not 300 ns maxi- 
imun. 


page 10 - in mode 010, CBl generates 9 clock 
pulses for controlling external devices. This is 
a serious bug in the chip. 


page 10 - in mode 011, the shift register 
DOES stop the shifting operation after 8B bits have 
been shifted in. Reading or writing the shift reg- 
ister resets the Interrupt Flag and initializes the 
SR counter as well as re-starting the shifting ac~ 
tion. 
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page 11 - in mode 101, CB2 remains at the 
state of the last bit shifted until a new bit is 
shifted out. 


figure 11 - data becomes valid approx 1.5 
usec following the negative transition of CBl. 


figure 12 - output data is valid on the ri- 
sing edge of CBl 


page 12 - in mode 111, the SR counter sets 
the SR Interrupt flag each time it counts 8 pulses 
and DOES disable the shifting function. 


Perhaps a little explanation on the 6522 ti- 
mers is in order, They're different from the 6530 
style in that they are full 16 bit counters as op- 
posed to the 6530 style 8 bit counters with pre- 
scaling. This gives the 6522 timer the capability 
for much better resolution (to lus. with a 1 MHZ 
clock) over the entire range from 1 us. to 65,536 
us. (65.5 milliseconds). 


There are two timers in the 6522, each slight- 
ly different in its abilities. Timer 1 can handle 
normal 16 bit timer functions as well as operat- 
ing in the "free running".mode, generating a square 
wave clock on the output of PB7 independent of any 
processor intervention. Handy for test signals a- 
round the workbench as well as for clocking per- 
ipheral devices such as A/D's etc, Timer 2 can op- 
erate as a pulse counter where it keeps track of 
negative going pulses coming in on the PB6 line as 
well as the normal “one shot" interval timer mode, 


The shift register is probably the most mis- 
understood function in the VIA. This 8 bit synch- 
ronsus serial port was designed to facilitate in- 
ter-system communications, not as a "normal" asyn- 
chronsus werial I/O port. The serious bug in the 
shift-register (mentioned previously) makes this 
function even less useful, There are, however, 
other uses for the shift register. How about 
clock or music generation? I did think about us- 
ing this shift register as the main element in a 
mini-floppy interface but gave up the idea after 
an investigation of the timing requirements of the 
floppy. 


more next time. 


EXTENDING THE RANGE OF KIM-1 TIMER TO 1:32640 
by Cass Lewart 


many systems based on the 6502 microprocessor 
e.g. the popular KIM-1, contain one or more firm- 
ware timers. When a value K is stored in a spec- 
ific location, the timer starts a countdown last- 
ing K time periods P, where P can assume 1, 8, 64, 
or 1024 usec depending on the time location cho- 
sen. A typical program using the firmware timer 
would look as follows: 


A2 KX LDX, K 
8E 06 17 START STK TIMER start timer 
2C 07 17 CHECK BIT TIMOUT check if timer 


finished 
10 FB BPL CHECK if not, check 
again 
with K assuming values between 0 - FFhex, the 


range of the timer is 1:256 (K=0 results in a 
countdown of FFhex + 1). This timing range may be 
inadequate for some applications and can be ex- 
tended to 1:32640 by simply adding two statements 
at the end of\fhe previous program: 


wa PGs 





CA DEX 
DO F5 BNE START 























The number of time intervale will be now: 


(xe) § o€K < FFnex 


2 
(rrhexeg) EEnSzt!) kK = 0 

The following table shows the delay intro- 
duced by the timer program for selected values of 
K. These figures do not include the overhead 
caused by the testing and looping instructions. 


KIM-1 
TIMER LOCATION 
INTERVAL P 


1024us 


13.9ms 
541ms 
2,138ec 
4.77s8ec 
8.458ec 


SYM AND AIM TIMER LOCATIONS 


by Marvin L. De Jong 
School of the Ozarks 
Point Lookout, Mo 65726 


Enclosed find a short table that may be of 
some use to SYM~-1 and AIM 65 owners. Both the 
SYM-1 and AIM 65 have 6532 chips which in turn 
have interval timers that are almost indentical to 
the timers on the KIM-l. In fact, in many programs 
written for the KIM-1, one can merely substitute 
the address given in the table if he is using an 
AIM 65 or SYM-1. 


If the program involving a KIM~-1 timer is us- 
ing the interrupt mode, that is, PB7 is connected 
to the IRQ line or the NMI line, then SYM-1 users 
are out of luck as far as using the 6532 is con- 
cerned. Perhaps they could jumper a lead from the 
IRQ pin on the 6532 to the IRQ pin.on the 6502, but 
I am certainly not recommending that without a 
SYM-1 with which to experiment, The AIM 65 people 
are still in luck, for the 6532 interrupt is con- 
nected on board to the IRQ pin of the 6502. So 
AIM 65 users can make use of all the KIM-1 programs 
that use interval timers by substituting the ad- 
dresses shown in the table. 


Of course AIM 65 and SYM~-1l users can rewrite 
any timer routine using the 6522 chips that both 
these systems include. 


TIMER KIM-1 ADR. AIM 65 ADR. SYM-1 ADR. 
TOOO1 $1704* $A494x SAG1CH% 
T0008 $1705 $A495 $A41D 
T0064 $1706 $A496 SA41E 
T1024 $1707 $A497 SA41F 
READ STATUS $1707 $A497 $A407 
READ TIME $1706 $4486 $A406 


*Add eight (in hexadecimal) to the address to en- 
able the interrupt feature on the KIM-1 and AIM 65, 


**The interrupt line on the SYM-l is not connected. 


USE OF THE RDY LINE TO HALT THE PROCESSOR 


rion tet ten eset eceecene reenter ne AT CP Tee SoS ee Son asa 


by Gonrad Boisvert 
Applications Manager 
Synertek 


The RDY line, available on the expansion con- 
nector, is used to halt the processor. This line 
is normally high and is driven to the low state in 
order to halt, and then driven high again to re- 
atart. 


The timing of the RDY line transition must 
not be random, relative to the processor clock. 
If it is, then the processor will occasionally 
fail to re-start. To solve this problem, it is 
necessary to time the RDY line transitions so that 
they occur during 01 timing, only. 


The following circuit cam be used to accomp- 
lish this: 
i 4 


AALT 


RbY 


_In this circuit, HALT is the low-going sig- 
nal indicating that the processor is to be stopped, 


EPROM PROGRAMMER—Model EP-2A-79 


iy OPTIMAL TECHNOLOGY, INC. 
EP-2A-79 


s, 
rroqnamen,  & 


PROG ARMING 
VOLTAGE. 


ae i 
SOFTWARE AVAILABLE FOR F-8, 8080, 6800, 8085, Z-80, 
6502, KIM-1, 1802, 2650. 
EPROM type is selected by a personality module which plugs 
into the front of the programmer. Power requirements are 
115 VAC, 50/60 HZ at 15 watts. It is supplied with a 36 inch 
ribbon cable for connecting to microcomputer. Requires 1% 
1/O ports. Priced at $145 with one set of software, per- 
sonality modules are shown below. 

Part No. Programs Price 
PM-0 TMS 2708 $15.00 
PM-1 2704, 2708 15.00 
PM-2 2732 25.00 
PM-3 TMS 2716 15.00 
PM-4 TMS 2532 25.00 
PM-5 TMS 2516, 2716, 2758 15.00 


Optimal Technology, Inc. 
Blue Wood 127, Earlysville, VA 22936 
Phone 804-973-5482 
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The MVM-1024 is a video display that departs from the 
usual DMA page memory structure. Two on-board bi-directional 
ports hold the cursor position, eliminating the need to use micro- 
processor registers to form a memory pointer and external RAM 
to-save the cursor position. The cursor display is a blinking over- 
and under-line. Reverse video characters can be generated in- 
dependent of cursor function. 


The MVM-1024 is ideal as a parallel access display. The 
upper / lower case capability, together with its unique organi- 
zation make it a natural for text editing applications. The board 
uses more expensive low-power Schottky logic and low-power 
memory. Designed for no specific microprocessor, the interface 
can be adapted to any available microprocessor. It can support 
separate IN and OUT data buses, or a single bi-directional 
data bus. 


MVM 1024 Microprocessor VivEo 


KIM=-1 
GOES 
VIiOEO 





rr 
JOHNSON P.O. BO 523 MEDINA, OHIO 44256 


COMPUTER (216) 725-4560 OR 725-4568 
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comments... 


COMMENTS FROM 


by Les Jacobson 
3841 Fetlock Cir. 
Colorado Springs Co 80918 


I have some information which I would like to 
have you pass on to the other readers of USER NOTES. 
It may keep them from repeating some of the mis-~- 
takes which I have made. 


First, DESPITE the full page ads in October 
and November issues of BYTE, Commodore is NOT able 
to supply the KIM-3B, nor the KIM-4, nor the KIM- 

5 nor the KIM-6. During telephone conversations 
with their Marketing dept., in December, I was ad- 
vised that these items would be available after the 
first quarter of 1979, This (again) despite their 
ad's statements that ALL of these were available 
for immediate shipment. 


Today (March 13th) I phoned them again. This 
time I learned that Commodore has decided not to 
construct and offer EITHER NOW OR IN THE FORSEE- 
ABLE FUTURE any of the above boards. Further in- 
quiry lead me to locate probably the last remain- 
ing KIM-6 in the U.S. Falk-Baker Co. in Nutley, 
N.J. (201) 661-2430, has a limited supply of the 
KIM-4 motherboards. So does the NCE/CompuMart in 
Ann Arbor, Mich. (800) 521-1534. In fact, NCE is 
discounting their remaining KIM-4s and the very 
few KIM-3Bs that they still have by almost 302%. 


My intent is to attempt to locate a manufac- 
turer who can duplicate the KIM-6 so that I can 
prototype additional memory. With the recent pri- 
ces for good 2114s having dropped, I believe that 
16K of memory should be buildable for less than 
$200. 


It appears that the KIM is not the only thing 
which Commodore is not supporting. I'm a Senior 
Software Systems Engiueer with the Aerospace div- 
ision of Ford, My primary work is for the Dept. 
of Defense but I interface with other government 
agencies. The other day I visited the National 
Bureau of Standards in Boulder. Since my interests 
are software I was immediately involved with their 
latest experiments and applications. In support 
of one of their projects, NBS purchased 29 PET 
computers, Their problem, I learned, was that NOT 
ONE of these units functioned as advertised, Com- 
modore had been called to correct the problem and 
hadn't bothered to extend the courtesy of a re- 
sponse, NBS engineers told me that the problems 
were shoddy workmanship, poor printed circuit 
board construction, and the use of many sub-stand- 
ard chips. I was told that NBS had stopped pay- 
ment on the purchase and was preparing to return 
all of the units to Commodore, 


Interestingly enough, the owner of our local 
Computerland is returning his entire consignment 
of PETs to Commodore for the identical reason. 


I support your search for a RPN calculator 
chip interface for the KIM. RPN is precicely the 
concept utilized by the large scale machines be- 
cause of the inherent efficiency. It may mean ded- 
icating up to 4 memory locations to retain precis-~- 
ion, but that appears to be trivial. 


For anyone still wanting to go "glass" TTY in- 
stead of the clanking monster, SWIP makes a very 
nice unit for almost exactly the same price as a 
working TTY. And it has many more features than the 
Teletype does. In addition it displays the more 


reasonable 24 by 80 format which is far more use- 
able unless you don't care that your computer only 
plays games. . 


I promise not to write often, But I will at~ 
tempt to keep you posted on my successes and fail- 
ures, 


By the way, Micropolis has impressed me the 
most of any company with their disk configuration 
and reliability. Has anyone successfully inter- 
faced their hardware to the KIM bus? I£ s0, how 
about letting the rest of us in on it, 


Keep up the good work, and thanks for warning 
the others of the holes in the KIM path, 


ALTERNATE SOURCE FOR OSI BOARDS 


by Robert F. Solomon 
5868 JoAnne Court 
North Ridgeville, Ohio 44039 


GREAT NEWS FOR OSI OWNERS! As most owners of 
OSI computers know, delivery on OSI boards range 
from two weeks to infinity; with emphasis on the 
latter. While attempting to locate a bare OSI 420 
board, I found out that D&N Micro Products, 3932 
Oakhust Dr., Fort Wayne, In 46815 made OSI compat~ 
ible boards. I called them and learned they made 
an 8K RAM board in kit form at a reasonable price. 
I promptly sent them a money order and received the 
kit within 5 days. After assembling it and trac- 
ing a shorted foil (my fault, not theirs) it worked 
beautifully, They also make a Real Time clock and 
a proto board; with a couple more boards just go- 
ing into production. I am well pleased with their 
RAM board and love their delivery. 


Before I go into my present activities, I 
would like to explain my system. (Mainly to show 
that I am not working with a super~sophisticated 
system, but more on the level of what I consider 
the system of the average tinkerer, I have an OSI 
system with 16K,video board and cassette interface. 
It is based on the 404V board. I have an RO-15 
Teletype for hard copy. The entire system has been 
built from kits. My major accomplishment has been 
to interface the computer to an electronic organ. 
This is not synthesized music but a case where the 
computer actually plays the organ. 


Most of my programming has been in machine 
language and Tiny Basic. I am now getting Focal 
up and running. As of right now, Focal appears to 
be working, but as yet I have not exercised all of 
the functions to make sure everything works, I 
hand loaded the entire program from the KIM based 
listing of the Aresco version 3D. I have atl the 
patches made to make it operate on the OSI. 


I am planning to summarize these patches and 
submit an article to NOTES for publication. At 
present, I am starting work on a PLL FSK interface 
to operate with the OSI 430 I/O system to up my 
cassette records to 1000 baud. I plan on publish- 
ing this also. 


I think that is enough rambling for now, I 
hope my contributions and thoughts will encourage 
other OSI users to get on the NOTES bandwagon and 
share their experiences. 


CEDITORS NOTE - : 
Bob has just sent in an article on adapting 

a KIM 6530-003 to the OSI system for the purpose 

of reading KIM compatible cassettes. That article 

will appear in #16, Thanks Bob!) 
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music 


ADDITIONS TO THE MTU MUSIC SOFTWARE PACKAGE 


by Bruce Nazarian 
WD8DRK 


As promised, here are a few changes you should 
try to make to Hal Chamberlain's DAC software. I 
aent these to him and he told me he liked them and 
would be using them in the demo ROM for the DAC 
system. I guess being a musician has its advan- 
tages!! So, here they are, and you may wish to 
put these in the User Notes as well. 


PROGRAM CHANGES FOR KIM4V 
(For use with the MTU DAC music system) 


TRESE CHANGES WILL CORRECT AN ERROR IN ASSEMBLY 


ADDRESS SHOULD READ: 
1788 3E, not 2E 
178D 3E, not 2E 
1792 3E, not 2E 
1797 3E, not 2E 
179¢ 3E, not 2E 
17Al 3E, not 2E 
17A6 3C, not 2C 
17AB 3C, not 2C 


THESE CHANGES ARE SUBJECTIVE MUSICAL CHANGES 
IN CONTENT...You may like them, and then again, 
you may not. Your ears will tell you yes or no. 
hi. 


ADDRESS SUBSTITUTE ADDRESS. SUBSTITUTE 
179F 24 for 1E 0088 06 for 14 
17A9 24 for 1E 0092 10 for 1E 
17B8 14 for 22 oo9c 16 for 24 
17BE 30 for 2C¢ 0204 14 for 22 
17¢2 2C for 22 0209 1A for 28 
17¢3 32 for 2C O20E 1A for 28 
17D1 10 for 1E 0234 1E for 24 
17D6 10 for 1E 025C 1E for 24 
17DB 14 for 22 0298 1E for 24 
029D 22 for 24 


Also the following: 


02c9 18 2C 2C 44 44 
02C¢3 18 36 36 4E 4E 
02D3 18 32 36 4E 52 ~~) 
02D8 48 30 3c 4E 5C 
02DD 18 40 00 00 58 
02E2 24 3A 00 00 52 
O2E7 OC 36 00 00 4E 
O2EC 30 2C 44 4c¢ 52 


THESE CHANGES ARE FOR THE "EXODUS" SONG TABLE 
IN THE MTU ADVANCED MUSIC SOFTWARE PACKAGE, AVAIL- 
ABLE FOR THE MTU DAC MUSIC SYSTEM. (K-1002) 


I don't know if you have seen the article in 
MICRO, Ish 2 which attempt to explain how to use 
the DAC music system..1t is a good piece of writ- 
ing, well aimed at people who do not know that 
much about the semantics of musical part-writing, 
but ole Armand (Camus, the author) made a few 
good old-fashioned boo-boos in there..,He states 
address 0O01D will change the TEMPO of the tune-- 
well, maybe in his software it is, but in the list- 
ing I have, the TEMPO byte is location 0016. Also, 
he states that the execution point may be changed 
from the beginning ($0200) to another point as 
long as you start out with a correct duration byte. 
Correct, but the addresses are not 0017 & 0018 in 
my liasting...the starting address should be in lo- 
cations 0014 (SAL) and 0015 (SAH). The little 
chart he has made regarding the available memory 
locations and their use in the song tables is 
right on the money!! Hope you haven't been con- 
fused by this. I really was for a few minutes un- 
til 1 dug back in the lisings I had. Maybe there 
is a difference in the software that was made 
available with the DAC that Tripp was selling and 
the one that MTU is doing on their own? 
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interface 


A_ SIMPLE MICROPROCESSOR INTERFACE CIRCUIT 
by Cass R. Lewart 


The following simple and inexpensive interface 
circuit will let KIM control LEDs, relays or AC op- 
erated appliances. 


The computer ports are directly connected to 
inputs of SN75492. This is a popular MOS/LED dri- 
ver IC, described by me in earlier issues of KUN, 
which can sink up to 200 mA on each of its six 
outputs, A typical use for this IC is as digit 
driver in multiplexed LED calculator displays, It 
can also be used to drive individual LEDs, relays 
or optocouplers. To calculate the value of load 
resistors it should be remembered that the voltage 
drop between any output and ground of SN75492 is 
700 mV. The HEP P5002 or Motorola MOC3010/11 is an 
optocoupler interfacing an infrared emitting diode 
to a low power Triac. The low power Triac in the 
optocoupler in turn controls a larger Triac e.g. 
HEP R1723 to turn on and off AC appliances, motors, 
heaters, etc. 


If more than 6 ports of a computer are being 
used for control, additional $N754928 can be in- 
stalled. The same port can also drive more than 
one output e.g. an AC load via an optocoupler and 
an LED as activity indicator, 
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KIM SOFTWARE ON CASSETTE 


We know that you have better things to do with 





your time than punching hex code into your machine. OUR PRESENT OFFERINGS INCLUDE: 
Because of thia, we have made some of the Longer a a ea wa 
programs avaifable on KIM cassetie, KIMATH (specify $2000 on $F800 version)..... $12.00 


Pa (includes eranata sheet for manual) 
These cassettes are ordginal dumps, not cop- 


des, made with top quality 5-screw housing cassetics HEXPAWN (420m 454UC HIB] cccecerccevecceeeeees $5.00 
dn the standard KIM tape speed. Thirty seconds of 
sync characters precede the program to enable you DISASSEMBLER (from £44uC #14) cc ssceceecceeees $5.00 
to tune up your rccorder or PLL. 
' ; : BANNER (from 445UC 14) creer cc arnnrcncveceee $5.00 

Ane you AIM & SYM owners interested in having 
some of these programs available for your machines? PAYMENT MUST BE IN U.S. FUNDS 

6502 USER NOTES, POB 33093, N. Royalton Ohio OVERSEAS CUSTOMERS PLEASE INCLUDE $1.00 

44133 EXTRA PER CASSETTE FOR EXTRA POSTAGE. 


PET 8K $ 695 CASSETTE TAPES 
PET 16K = NEW Full-size Keyboard $ 890 Premium quality, low noise, in 5 screw housing. 
PET 32K NEW Full-size Keyboard $ 1065 | Includes labels. -- All tapes guaranteed -- 


PET Dual Disk (343,000 bytes online) $1160 | C-10 10/5.95 50/25.00 100/48.00 
PET Printers (May 1979 availability) C-30 10/7.00 50/30.00 100/57.00 


2021 Electrostatic $ 495 Norelco-style hard cassette boxes 10/1.25 


2022 Tractor Feed $ 890 Soft poly cassette boxes 10/1.00 
2023 Pressure Feed $ 760 aS co aT ee a TE 


2716 (Intel) or 2516 (TI) +5V EPROM $ 45 

KIM-1 $ 159 | 21141 NEW low power MOS Technology $ 6.95 

SYM-1 $ 238 6550 RAM (for Commodore PET) $ 16.20 
KL-512 Power Supply $ 34 | 6520 VIA 

for KM, SYM, and extra RAM 2 VIA or 6520 PIA $ 10.50 

6500 Programming Manual (MOS) $ 6.50 


Memory Uist ae 6500 Hardware Manual (MOS) $ 6.50 
KIM-4 Motherboard $ 95 : , 

Synertek ROM BASIC $igy.|! EISE Beokcet SIM ada 
Synertek KTM=2 Keyboard Terminal $ 290 Programming a uComputer:6502 Foster $ 8.95 


Problem Solver KM8B KIM RAM $ 149 | Programming the 6502 R. Zaks $ 9.95 
KIM Microchess (Jennings) $ 13.00 

SEA-16 ~= NEW 16K Static RAM $ 325 ; PF 
Uses new MOS Tech. very low PET Microchess (Jennings) $ 17.95 


4 (1.35 K). i Mas i ee ee ey art fe 
casetiig are al ) Write for: 6502 and S-100 product list 


Seawell Buffered Motherboard $ 99 PET Software List 


Assembled, with space for 4K RAM. 
For SYM, AIM, KIM A B Computers — 215+699.2386 


Other Seawell products available soon. 115 E. Stump Rd. Montgomeryville, PA 18936 


6502 CONSULTING SERVICE 


HAVE COM PUTER WILL CONSULT 


& CALL ERIC (216) 237-0755 
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EVIEWS ETC. 


EVIEW: Programming the 6502, by Rodnay Zaks 
(SYBEX, 305 pp.) 


review by Jim Butterfield 


The 650X community is in need of good refer- 
nce and/or tutorial books on their chip. Unfor-~ 
unately, this book doesn't make the grade. 


There are too many mistakes and oversights in 
he book to make it serve as a useful reference or 
eaching guide. Some of the problems are relativ- 
ly minor goofs that may be corrected in a future 
dition: for example, page 15 notes that binary 
0000000 equals a value cf minus zero (!), and page 
81 says (twice!) that the BIT instruction uses 
elative addressing. 


More seriously, thermseems to be a lack in the 
-uthor's depth of understanding. Exercise 3,17 
.sks the reader, "Why is the return from a sub- 
‘outine so much faster than the call?" Why indeed? 
‘he 6502's JSR (Jump Subroutine) and RTS (return 
irom subroutine) in fact have identical execution 
speeds. On the same subject, Zaks suggests that a 
.andy way for a calling program to pass parameters 
:0 a subroutine is through the stack. He doesn't 
vention the formidable coding problems that this 
ireates. 


Zaks doesn’t seem to realize the important 
lifference in indexing behaviour between zero-page 
and absolute modes, namely that zero-page indexing 
zan be used to achieve a negative index value. 
Anyway, he doesn't mention it; indeed, he makes 
Little mention of zero-page indexing except to 
state that only the K register can be used as an 
index (which is, once again, wrong). 


The list of problems goes on. Several examples 
are incorrect, and on at least one occasion, in- 
sult is added to injury by having an explanation 
of how the incorrect code works. 


Perhaps the biggest problem is that Zaks 
doesn't seem to like the 6502, His tutorial style 
is to outline features he thinks "good" processors 
should have, and then conclude that the 6502 has a 
poor capability in that, area, The word, “unfor- 
tunately", occurs over and over again indescribing 
the 6502: Unfortunately, it doesn't have both ADD 
and ADC; unfortunately it can't test bits in se- 
quence (whatever that is); unfortunately, the 6502 
has very few internal registers; unfortunately, 
only the A register can be shifted.,.the list goes 
on. 

It reaches a climax on page 182 where Zaks 
first details indirect addressing on the 6502. He 
does this with seven sentences criticizing the way 
it's done. This is followed by, "In fairness, it 
should be noted that few microprocessors provide 
any indirect addressing at all." 


Faint praise indeed for one of industry's big- 
gest-selling microprocessors. A beginner reading 
this book might wonder whether he's made a mistake 
in opting for the 6502. Nowhere does the book men- 
tion the chip's speed and versatility. 


Does the book have anything going for it? It 
covers the instruction set quite well, with addres- 
sing modes outline somewhat patchily. Many of the 
coding examples are well set out and explained. 
Interrupts are dealt with in a rather rough man- 
ner, and support chips are passed over briefly. 
These are eight pages of good appendices, and a 
thorough index. 


It’s still hard to find material dealing with 


the 6502. If you're desperate, this book will be 
of some help. 
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THE SEAWELL MARKETING 16K RAM BOARD 


The SEA-16 is a KIM-4 compatible 16K Static 
RAM card from SEAWELL MARKETING, 315 N.W. 85th, 
Seattle, WA 98117 (206) 782-9480. 


The card has been designed to fit in the stand- 
ard KIM-4 backplane and cannot be used in the new 
HDE motherboard. The SEA-16 is a really nicely 
done board with solder-masking on both sides and 
labeling of all 1I.C.'s and DIP switches. 


All of the 32 RAMs were socketed with low- 
profile Augat sockets (the good ones) which seemed 
indicative of the overall high quality of workman- 
ship involved here, 


Unfortunately, the documentation that accomp- 
anied this otherwise nicely done board consisted of 
a copy of the schematic and nothing else, I was 
left to decide for myself which way the write en- 
able and bank select switches should be positioned 
for proper operation. Also, one of the RAMs failed 
almost immediately which indicated that this board 
had net been burned in at all, 


In a phone conversation with Seawell Marketing 
shortly thereafter I was assured that this board 
had somehow "sneaked" past the usual burn-in pro- 
cedure. It was further stated that the regular 
documentation package had just been printed up and 
I would receive it along with a replacement 2114 
very shortly. 


That was over a month ago and I still haven't 
received anything. 


Seawell Marketing has done an otherwise first 
class job on this $325 RAM board except for the 
two points that I mentioned. Maybe they'll have 
gotten their act together by the time you read this. 
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NEW PRODUCT 


SPEAK & SPELL (TM) INTERFACE KIT 


If you were wondering whether or not the new 
Texas Instruments’ SPEAK & SPELL learning aid could 
be hooked up to a computer-wonder no lorger! For 
apparently it already has been done, 


After following up on an ad that was placed 
in ON-LINE*, I found out that Dave Kemp of East 
Coast Micro Products (1307 Beltram Ct, Odenton, MD 
21113) is offering the SP-1, a bidirectional inter- 
face to the Speak & Spell for $49.00. 


According to the flyer, "It (the SP-1) allows 
the computer to read speech data as it is being 
fetched from onboard ROM by the synthesizer, and 
it allows the computer to transfer data directly to 
the synthesizer to produce computer generated 
speech or sound effects." 


I hope to be reviewing the SP~l in an upcom- 
ing issue. It's really exciting to consider the 
possibilities of an under $100 digital speech syn- 
thesizer interface, 


According to the information I received, the 
SP-l will interface to a 6522 and includes some 
6502 driver software (SYM). 


*ON_LINE is a computer classified ad newslet- 
ter. For more info, contact Dave Beetle, publisher, 
24695 Santa Cruz Hwy., Los Gatos, CA 95030 
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— KIM-1 EXPANSION 


@ KIM-4 Motherboard $119.00 
8K Static RAM $169.00 
8K PROM Board $165.00. 


@ KIMSI S-100 Motherboard $165.00 
8K Static RAM $197.00 
32K Static RAM $599.00 
64 Character/line Video $149.00 


@ KEM S-100 Motherboard $155.00 
includes sockets for 4K 2708 on board 
64 Character/line Video Module $235.00 
8K Static RAM $197.50 


@ HDE Floppy Disk 
@ PROM Programmers 


All items are available from stock. 


JOHNSON won Soe 
COMPUTER (216) 125-4560 











BOX 120 
ALLAMUCHY, N.J. 07820 
inc. 201-362-6574 


HUDSON DIGITAL ELECTRONICS INC. 


JUST THINK OF IT! 


YOUR KIM-1 — No longer limited to those long cassette saves and loads. 


YOUR KIM-1 — Backed up by 8K static ram so conservatively designed, 
well manufactured and thoroughly tested, HDE includes a 
no-nonsense, unconditional, 6 months parts and labor 
warranty. (Excluding misuse). 


YOUR KIM-1 — transformed into one of the most powerful 6502 develop- 
ment systems available today. 


HDE, INC. supports the KIM-1 with 8” and 5” single and dual drive disk systems, proto- 
typing cards, card racks, desk top cabinets, motherboards, and the finest memory 
board available, anywhere, at any price. 


AND THIS IS JUST FOR STARTERS. 


Consider: A fast, 2 pass assembler, a complete line oriented editor; a comprehensive 
text output processing system; an efficient dynamic debugging tool; and, a memory 
diagnostic package so thorough it’s the basis of our memory warranty. 


Plus, after the sale support that you’ve known you deserve, but just couldn't seem to 
get — until now. es 


And, HDE products are KIM-1, KIM-4 compatible. All boards include an oversized 5 
volt regulator and address selection switches, in a state-of-the-art 4.5” X 6.5” format, 
designed, manufactured, and tested for commercial/industrial application. 


HDE products — built to be used with confidence. 


AVAILABLE FROM THESE FINE DEALERS: 


LONG ISLAND 


JOHNSON COMPUTER PLAINSMAN MICROSYSTEMS ARESCO COMPUTER GENERAL STORE LONE STAR ELECTRONICS 
Box 523 Box 1712 P.O. Box 43 103 Atlantic Avenue Box 488 
Medina, Ohio 44256 Auburn, Ala. 36830 Audubon, Pa. 19407 Lynbrook, N.Y. 11563 Manchaca, Texas 78652 
216-725-4560 800-633-8724 215-631-9052 516-887-1500 512-282-3570 





